Даны три целых числа. Вывести на экран наибольшее из трех введенных чисел.

Var a, b, c:integer;

Begin

Write ('Введите три целых числа: ') ; ReadLn (a, b, c) ;

if b>a then a:=b;

if c>a then a:=c;

WriteLn (a) ;

End.

Program GH;

Var a, b, c, max:integer;

Begin

Writeln ('введите а ') ;

Read (a) ;

Writeln ('введите b') ;

Read (b) ;

Writeln ('введите c') ;

Read (c) ;

Begin

If a>b and a>c then max:=a

Else if b>c then max:=b

Else max:=c;

End;

Writeln ('наибольший элемент равен', max) ;

End.