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