Var
A,B:integer;
Begin
Write('Введите два числа: ');ReadLn(A,B);
if A<B then Write(A)
else Write(B)
End.
Число 793 в двоичной системе счисления (BIN): 000000000000001100011001.Восьмеричное значение (OCT) для десятичного числа 793: 00001431.Число 793 в шестнадцатеричной системе счисления (HEX): 000319.
Желтый красный синий вообще самые основные звета
Program five;
uses crt;
begin
writeln('-5 -4 -3 -2 -1 0 1 2 3 4 5 6 7 8');
end.
это не через цикл if, а просто выписаны числа.
Или тебе именно через цикл if надо?