USES CRT, Graph;
var
ster,tryb:integer;
procedure dom;
begin
rectangle(82,110,400,400);
end;
procedure dach;
begin
line(250,20,30,110);
line(250,20,450,110);
line(30,110,450,110);
end;
procedure okno;
begin
rectangle(120,145,190,220);
end;
procedure drzwi;
begin
rectangle(331,260,400,400);
end;
begin
ster:=VGA; tryb:=vgahi;
InitGraph(ster,tryb,'C:\');
dom;
dach;
okno;
drzwi;
readLn;
end.
uwaga: w InitGraph to w apostrofach (tam gdzie ja mam podane 'C:\') to musisz sam sobie zmienić najlepiej na to co Ci Pan podał, bo może się tak zdarzyć że kompilator ci nie skompiluje programu a u mnie poprawnie działa;) (używam FreePascal)
edit: w załączniku skrypt jest odpowiednio sformatowany:P
