Составить программу ввести три целых числа и найти наибольшее из них. пример введите три числа 4 15 9 наибольшее число 15

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.