Question

С помощью цикла while выведите в консоль поданныйниже квадрат: * * * * * * * * * *

Answer 1

1. const
2.    chars = '**';
3.    N = 5;
4. var
5.    i: integer;
6. begin
7.    while i <= N do
8.        begin
9.            Writeln(chars);
10.            i := i + 1;
11.        end;
12. end.