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

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.