Volumn 1   P.146  (4)

Program Square(input, output);
uses wincrt;
var  S : integer;
(*** Procedure***)
procedure Draw(Size : integer; Symbol : char);
var Row, Column : integer;
begin
for Row :=1 to Size do
  begin
    for column :=1 to size do
      write(Symbol, ' ');
    writeln
  end
end;
(***Main Program***)
begin
  write('Please enter the size of a square: ');
  readln(S);
  Draw(S, '.')
end.