Записать программный алгоритм наибольшего значения из трех.

Program Max;

Var a, b, c: Integer;

Begin

Write ('a = ') ;

ReadLn (a) ;

Write ('b = ') ;

ReadLn (b) ;

Write ('c = ') ;

ReadLn (c) ;

If (a > b) Then

Begin

If (a > c) Then

WriteLn (a)

Else

WriteLn (c) ;

End

Else If (b > c) Then

WriteLn (b)

Else

WriteLn (c) ;

ReadLn;

End.