Запишите программу, результат которой представлен ниже # # # #### # # # ( @ @ ) ?? ****...

Question

Запишите программу, результат которой представлен ниже
# # # #### # # #
( @ @ )
??
****
**

Answer 1

// PascalABC.NET 3.2, сборка 1439 от 09.05.2017
// Внимание! Если программа не работает, обновите версию!

begin
  Writeln('# # # #### # # #'+NewLine+'( @ @ )'+NewLine+'??'+
      NewLine+'****'+NewLine+'**')
end.

Answer 2

Var a:string:='# # # #### # # #';b:string:='( @ @ )';c:string:='??';d:string:='****';e:string:='**';begin writeln(a); writeln(b); writeln(c); writeln(d); writeln(e);end.

Comments

Сори,коряво скопировал.