Question

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

Answer 1

Program n1;
var a,b,sum: real;
begin
readln(a,b);
sum:=a+b;
if sum>100 then sum:=sum/2 else sum:=sum*2;
write(sum);
end.