Срочно плиз!!!Ввести два числа ( C, O) и вывести наивеличайшее число

Ввод: С ^ О С/П.

П1 lt;-gt; П0 - xlt;0 08 ИП0 С/П ИП1 С/П

var c,o:real;

begin

writeln('Введите число С: ');

read(c);

writeln('Введите число O: ');

read(o);

if c=o then writeln('Числа одинаковы') else

if cgt;o then writeln('Величайшее число: ',c)

else writeln('Наибольшее число: ',o);

end.

Если понравилось решение - ставь 5 звезд и "Лучший ответ"!