Даны значения трёх реальных переменных a,b и c. Найти наибольшее значение

program zz1;

var a, b, c, p:real; //задаем переменные не целого типа

begin

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

read(a);  

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

read(b);

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

read(c);

If (a gt;= b) and (b gt;= c) Then write( большее , a); //  проверяем, если первое число больше иных, то выводим на экран ответ

If (b gt;= a) and (b gt;= c) Then write( большее , b);//  проверяем, если второе число больше иных, то выводим на экран ответ

If (c gt;= b) and (c gt;= a) Then write( большее , c);//  проверяем, если третье число больше иных, то выводим на экран ответ

END.