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

Question

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

Answer 1

Var  i, j: integer;
begin 
for i := 1 to 10 do 
begin   
for j := 1 to 10 do     
if not ((j > 1) and (j < 10) and (i > 1) and (i < 10)) then       
Write('.')     
else       
write(' ');   
writeln; 
end;  
end.

---