Пользователь вводит 2 числа, проверяется какое число больше. большее число выводится столько раз, сколько значение меньшего.
!

program Test;

var

 a, b, imin, imax, i: Integer;

begin

 Write ('Введите 2 числа: ');

 ReadLn (a, b);

 if a > b then begin

   imin := b;

   imax := a;

 end else if a <= b then begin

   imin := a;

   imax := b;

 end;

 if imin <> imax then begin

   for i := 1 to imin do

     Write (imax, ' ');

 end else

   WriteLn ('Числа равны');

  ReadLn;

end.