Составьте программу в которой с клавиатуры вводится 3 числа и программа выводит наибольшее из них, а если они равны, то пишет, что равны.

Вот решение, всё элементарно:

Var a,b,c:integer;
Begin
Readln(a,b,c);
if (a>b) and (a>c) then Writeln(a);
if (b>a) and (b>c) then Writeln(b);
if (c>a) and (c>b) then Writeln(c);
if (a=b) and (b=c) then Writeln(Числа равны);
End.