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

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

2011-12-08 23:44:56

code: #pascal

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

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

Поделиться:

Sample Code