Даны два действительных числа Х и Y. Если х>Y, то вычислить произведение этих чисел, иначе их сумма

program zz1;

var x, y:integer; / / вводим переменные целого типа

begin

write (' введите первое число '); / / вводим с клавиатуры первое число

read (x);

write (' введите второе число '); / / вводим с клавиатуры второе число

read (y);

if x > y / / проверяем условие, если первое число больше второго, то

then write (' произведение заданных чисел ', x * y) / / выводим один ответ

else write (' сумма заданных чисел ', x + y); / / выводим другой ответ

end.