На языка паскаль. с клавиатуры вводятся целые числа a, b и c. если а*b больше, чем с2-b, тогда выведите а+b, в противном случае выведите b+c.

Var
a,b,c:Integer;
Begin
 Read(a,b,c);
 if (a*b > c*2-b) then Writeln(a+b)
  else Writeln(b+c);
end.