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