Program piramidakwadratWoźniakBartosz;

var
x,y,z,a:integer;
Procedure kwadrat;
Begin
for x:=1 to 4 do
begin
PenDown;
Forward(30);
right(90);
end;
end;
Procedure początek;
Begin
PenUp;
Right (180);
Forward (100)
end;
procedure obrotl;
Begin
left(90);
end;
procedure dalej;
begin
forward (30);
end;
procedure kawałek;
begin
forward (15);
end;
procedure obrotp;
Begin
right(90);
end;
Begin
Początek;

obrotl;
dalej;
dalej;
dalej;

kawałek;
obrotl;
obrotl;
dalej;
dalej;

dalej;
dalej;
dalej;
obrotp;
dalej;
obrotp;
obrotp;
kwadrat;
obrotl;
dalej;

kwadrat;
dalej;
kwadrat;
dalej;
kwadrat;
dalej;
kwadrat;
obrotl;
obrotl;
dalej;

dalej;
dalej;
kawałek;
obrotp;
dalej;
obrotp;
obrotp;
kwadrat;
obrotl;
dalej;
kwadrat;
dalej;
kwadrat;
dalej;
kwadrat;
dalej;
obrotl;
obrotl;
dalej;

dalej;
dalej;
kawałek;
obrotp;
dalej;
obrotp;
obrotp;
kwadrat;
obrotl;
dalej;
kwadrat;
dalej;

kwadrat;
dalej;
obrotl;
obrotl;
dalej;

dalej;
kawałek;
obrotp;
dalej;
obrotp;
obrotp;
kwadrat;
obrotl;
dalej;
kwadrat;
dalej;

obrotl;
obrotl;
dalej;
dalej;

kawałek;
obrotp;
dalej;
obrotp;
obrotp;
obrotl;
dalej;
kwadrat;
dalej;

obrotl;
obrotl;

dalej;
kawałek;
obrotp;
dalej;
obrotp;
obrotp;
obrotl;
dalej;


obrotp;
dalej;



end.
                                
                            

Paste Hosted With By Wklejamy.pl