Помогите составить алгоритм для вычисления пожалуйста (PascalABC)

[MrOw]

12ое задание. Заранее спасибо!
Z_ggbuR1mKw.jpg

[Stilet]

const a=1; c=1; x=1;
begin
 if x<c then write(sqrt(a+c)) else
  if c>c then write(a) else
   write(abs(c-a)); readln;
end;