Даны два числа. Вывести вначале большее, а затем меньшее из них

Категория: Delphi/Pascal

2011-12-08 23:46:26

code: #pascal

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

автор: Sklyarov Sergej a.k.a. S9

Поделиться:

Sample Code