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

program xxx;

  var a, b, s : real;

              r, p, d : real;

begin

    write ('введите певрое число- ');

    readln (a);

    write ('введите второе число- ');

    readln (b);

    s: = a+ b;

    r : = a - b;

    p : = a* b;

    d : = a/b;

    writeln ('сумма =', s);

    writeln ('разность =', r);

    writeln ('произведение =', p);

    writeln ('частное = ', d);

    readln

end.

program xxx;

  var a,b,c : string;

begin

    write('введите название 1 фигуры-');

    readln (a);  

    write('введите название 2 фигуры-');

    readln (b);  

    write('введите название 3 фигуры-');

    readln (c);

    writeln (' фигуры: ',a,b,c);

    readln

end.