в выходной текстовый файл input. txt выведите изображение фигуры, приведенной ниже (задание 5)

// Pascal ABC. NET

var

i, j: Integer;

fOut: text;

begin

Assign(fOut, 'input. txt');

ReWrite(fOut);

for i := 1 to 5 do begin

for j := 1 to (5-i) do

Write(fOut, ' ');

for j := 1 to 1 + 2*(i-1) do

Write(fOut, i);

for j := 1 to (5-i) do

Write(fOut, ' ');

WriteLn(fOut);

end;

Close(fOut);

end.