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

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.