постоите квадрат со стороной 10 из точек используя оператор for

спасибос

program ideone;var i,j : integer;begin for i:=1 to 10 do  begin   for j:=1 to 10 do        write('*');  writeln(' ');  end;  readln;end.