Как сделать в паскале?

Question

Как сделать в паскале?

---

Answer 1

Var
  a,b,c:longint;
begin
  Read(a,b);
  c:=sqr(a+b);
  if c>=49 then Writeln(a-2,', ',b-20)
  else Writeln(a+2,', ',b+a)
end.