Question

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

Answer 1

var
    a, b: real;

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