Напишите программку, которая получает на вход три вещественных числа и обретаем

Var 

x,y,z:real;

begin

writeln('Введите три числа');

read(x,y,z);

If (xgt;z) and (xgt;y) then

writeln('Величайшее= ',x);

If (ygt;z) and (ygt;x) then

writeln('Наивеличайшее= ',y);

If (zgt;x) and (zgt;y) then

writeln('Наибольшее= ',z);

If (z=y) and (y=x) then writeln('Все числа однообразные') else

begin

If (z=x)  then writeln('числа x и z равны');

If (y=x)  then writeln('числа x и y одинаковы');

If (z=y)  then writeln('числа y и z одинаковы');

end.

end.