даны два действительных числа х и у. Найти большее из этих чисел или установить, что числа равны

program zz1;

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

begin

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

read (x);

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

read (y);

if x > y then write (' первое число больше второго '); / / проверяем условие и выводим один ответ

if x < y then write (' второе число больше первого '); / / проверяем условие и выводим другой ответ

if x = y then write (' числа равны '); / / проверяем условие и выводим третий ответ

end.