Напишите программу которая вводит натуральное число n и выводит n квадратов из символов "@". ввод: 3 вывод: @@@ @@@ @@@ @ @ @ @ @ @ @@@ @@@ @@@

{ ответ дан на языке Pascal }
PROGRAM Solution(INPUT, OUTPUT);

VAR
  n: INTEGER;
  I: INTEGER;
  Str: STRING;

BEGIN
  WRITE('Введите кол-во квадратов: ');
  READLN(n);
  STR := '@@@ ';
  FOR I := 2 TO n
  DO
  BEGIN
    Str := Str + COPY(Str, 1, 4);
  END;
  WRITELN(Str);
  WRITELN(Str);
  WRITELN(Str);
END.