program rep;
var
n,i : integer;
begin
writeln('Введите число,которое нужно повторить');
read(i);
writeln('Введите число повторений');
read(n);
repeat
write(i);
n := n - 1;
until n<1
end.
program rep;
var
n,i : integer;
begin
writeln('Введите число,которое нужно повторить');
read(i);
writeln('Введите число повторений');
read(n);
repeat
write(i);
n := n - 1;
until n<1
end.