Дано два числа x,y. ЕСли x>у, то найти сумму этих чисел, иначе произведение

var x,y:real;

begin

write('Введите x= ');

read(x);

write('Введите y= ');

read(y);

if x>y then writeln('Сумма чисел= ',x+y)  

else writeln('Произведение чисел= ',x*y);

end.