Program If6;
Var
A, B: Integer;
Begin
WriteLn('Введите числa A и B: ');
ReadLn(A, B);
If A > B Then
WriteLn(A)
Else
WriteLn(B);
End.
Program If6;
Var
A, B: Integer;
Begin
WriteLn('Введите числa A и B: ');
ReadLn(A, B);
If A > B Then
WriteLn(A)
Else
WriteLn(B);
End.