Составить программу которая выводит последовательность чисел 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.