program Num2;
var
a, b: Integer;
begin
Randomize;
Write ('Исходные числа: ');
a := Random (10);
b := Random (10);
Write (a, ' ', b);
WriteLn;
if a < b then
WriteLn ('Меньшее число = ', a)
else if a > b then
WriteLn ('Меньшее число = ', b)
else
WriteLn ('Числа равны.');
ReadLn;
end.
