Вывести ** экран фигуру из звёздочек (Паскаль) ******* ******* ******* *******

Question

Вывести на экран фигуру из звёздочек (Паскаль) ******* ******* ******* *******

Answer 1

1. const
2.    chars = '*******';
3.    N = 4;
4. var
5.    i: integer;
6. begin
7.    for i := 1 to N do
8.        Writeln(chars);
9. end.