Дано имя файла и целые положительные числа n и k. создать текстовый файл с указанным именем и записать в него n строк,каждая из которых состоит из k символов *(звездочка) данные: имя файла: ski.text n=10 k=15;

Var
    f: text;
    s: string;
    n, k, i, j: integer;

begin
    readln(s);
    readln(n, k);
    
    assign(f, s);
    rewrite(f);
    
    s := '';
    for i := 1 to k do
        s := s + '*';
    
    for i := 1 to n do
        writeln(f, s);
    close(f);
end.