Verified answer

Ответ:

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.