Question

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

Answer 1

var

 fOut: text;

begin

 Assign(fOut, 'a.txt');

 ReWrite(fOut);

 WriteLn(fOut, '**************');

 WriteLn(fOut, '*            *');

 WriteLn(fOut, '*            *');

 WriteLn(fOut, '**************');

 Close(fOut);

end.