Составьте программу в которой с клавиатуры вводится 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.