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

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.