Question

să se scrie un program care afișează pe ecran cuvântul informatica de de n ori (n<20) mărimea n,fiind introdusă de la tastatură URGENT​

Answer 1

program ex;

var

 n, i: integer;

begin

 writeln('Introduceti n: ');

 readln(n);

 i := 1;

 for i := 1 to n do writeln('Informatica');

end.