
Ввести два числа.Если их сумма больше100, то сумму уменьшить в 2 раза, в противном случае увеличить в 2 раза.

программа для паскаля
uses crt;
var a,b,s:real;
begin
clrscr;
write (a=); read (a);
write (b=); read (b);
s:=a+b;
if s>100 then writeln (s/2)
else writeln (2*s);
end.
Оцени ответ