Question

Скриншот ниже.Заранее спасибо.

Answer 1

//PascalABC.NET 3.1 сборка 1239
uses PT4;
var
    f: text;
    s: string;
    i, n: integer;

begin
    Task('Text2');
    readln(s);
    readln(n);
    
    assign(f, s);
    Rewrite(f);
    
    s := '';
    for i := 1 to n do
    begin
        s := s + chr(96 + i);
        writeln(f, s);
        writeln(s);
    end;
    Close(f);
end.