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

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.