Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.