Дано имя файла и целые положительные числа 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.

var

  n: integer;

begin

  readln(n);

  writeln(abs(n)-2);

end.