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

*******
*******
*******
*******

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.