Нарисовать флаг Норвегии — Pascal(Паскаль)

uses graph;
var gd,gm,xc,yc:integer;
begin
gd:=0;
initgraph(gd,gm,'');
xc:=getmaxX div 3;
yc:=getmaxY div 2;
setfillstyle(1,12);
bar(xc-120,yc-150,xc+330,yc+150);
setfillstyle(1,15);
bar(xc-30,yc-150,xc+30,yc+150);
bar(xc-120,yc-30,xc+330,yc+30);
setfillstyle(1,1);
bar(xc-25,yc-150,xc+25,yc+150);
bar(xc-120,yc-25,xc+330,yc+25);
readln
end.

uses graph;
var gd,gm,i:integer;
begin
gd:=0;
initgraph(gd,gm,'');
setcolor(12);
for i:=90 to 390 do
line(90,i,540,i);
setcolor(15);
for i:=180 to 240 do
line(i,90,i,390);
for i:=210 to 270 do
line(90,i,540,i);
setcolor(1);
for i:=185 to 235 do
line(i,90,i,390);
for i:=215 to 265 do
line(90,i,540,i);
readln
end.