Даны два числа X и Y.Если их произведение больше 20,то найти их сумму ,иначе найти их...

Question

Даны два числа X и Y.Если их произведение больше 20,то найти их сумму ,иначе найти их разность.Вывести результат.

Answer 1

Var x,y,z:real;
begin
readln (x);
readln (y);
if x*y>20 then z:=x+y else z:=x-y;
writeln (z);
end.