Gwazdkowe figury...

Siema! Strasznie boli mnie glowa (chyba jestem chory ) i nie moge dojsc do mojego bledu... oto kod programu:

[code]
program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;

var i,j,n: integer;

begin
Write('podaj n:');
Readln(n);

for i:=1 to n do
begin
for j:=1 to n do
if (i=1) or (j=1) or (i=n) or (j=n) then Write('*');
writeln;
end;

readln;
end.
[/code]

Ma to byc bowiem programik rysujacy na ekranie cos takiego:

dla n=3 (podanego przez uzytkownika). Jak ktos znajdzie chwilke dla mojego wyjatkowo niespodziewaneg oproblemu dziekuje bardzo z gory

if (i=1) or (j=1) or (i=n) or (j=n) then Write('*') else Write(' ');