Максимум из 3-х чисел даны 3 целых различных числа. нужно определить, которое из них самое большое. input со стандартного устройства ввода вводится через пробел 3 целых числа, не превосходящих по модулю 10000. output нужно выдать на стандартное устройство вывода через пробел ответ в следующем формате: “first number is maximal” “second number is maximal” “third number is maximal” sample input 1234 4321 -432 sample output second number is maximal

Написано на Pascal:

Program Max;
Var a, b, c: Integer;
Begin
Read(a);
Read(b);
Read(c);
If (abs(a) >10000) Or (abs(b) > 10000) Or (abs(c) > 10000) Then
WriteLn('Error!')
Else
Begin
If(a>b) Then
Begin
If(a > c) Then
WriteLn('First number is maximal')
Else
WriteLn('Third number is maximal')
End
Else If(b > c) Then
WriteLn('Second number is maximal')
Else
WriteLn('Third number is maximal');
End;
ReadLn;
End.