(Паскаль) Написать программу которая запросит ввести с клавиатуры 3 числа и выведит на экран большее из них. Если числа равны программа должна вывести надписть, что числа равны.

program qq;uses CRT;var a,b,c,max:longint;beginreadln(a);readln(b);readln(c);max:=a;if b>max thenmax:=b;if c>max thenmax:=c;if (a=b)and(b=c)and(a=c) thenwriteln('Числа равны')elsewriteln(max);end.

//PascalABC.NET//Версия 3.3.5, сборка 1650beginvar (a,b,c):=ReadReal3;if (a=b) and (b=c) then write('числа равны') else write(max(max(a,b),c));end.