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

Program Max; Var a, b, c: Integer; BeginWrite ('a='); ReadLn (a); Write ('b='); ReadLn (b); Write ('c='); ReadLn (c); If (a > b) ThenBeginIf (a > c) ThenWriteLn (a) ElseWriteLn (c); EndElse If (b > c) ThenWriteLn (b) ElseWriteLn (c); ReadLn; End.