Ввести два числа ( c, o) и вывести наибольшее число из этих чисел .учесть в программе, что числа могут быть равны.

var c,o:real;

begin

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

read(c);

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

read(o);

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

if c>o then writeln('Наибольшее число: ',c)

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

end.

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

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

П1 <-> П0 - x<0 08 ИП0 С/П ИП1 С/П