Вывести ** экран 2 строки по 7"@" в каждой(Паскаль)

Question

Вывести на экран 2 строки по 7"@" в каждой(Паскаль)

Answer 1

program HelloWorld;

var i: integer;

begin

    for i := 1 to 14 do

    begin

        if i=7 then writeln('@')

        else write('@')

    end;

end.