Составить программу которая выводит последовательность чисел 1111 2222 3333 4444

Если тебе только до 4444, а не до 9999, то в строке for i:= 1 to 9 do, вместо 9 ставишь 4.))

var
mas: array[0..9] of integer;
i: byte;
b: integer;

begin
for i := 1 to 9 do
begin
mas[i] := i * 1111;
b := mas[i];
writeln(b);
end;
end.