Нарисовать флаг Норвегии.

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.

uses graph;
var mx,my,x,dx,y:real;
    grD,grM,x0,y0,i,px,py:integer;
    s:string;
begin
grD:=detect;{инициализация графического режима}
initgraph(grD,grM,'');
X0:=getmaxX div 2;{начало координат в центре экрана}
Y0:=getmaxY div 2;
{коэффициенты по осям для перевода реальных координат в экранные}
mx:=30;
my:=100;
line(0,y0,getmaxX,y0); {ось Х}
line(x0,getmaxy,x0,0); {ось У}
{подписи оси Y}
line(x0-3,y0-round(sin(pi/2)*my),x0+3,y0-round(sin(pi/2)*my));
outtextXY(x0-10,y0-round(sin(pi/2)*my),'1');
line(x0-3,y0+round(sin(pi/2)*my),x0+3,y0+round(sin(pi/2)*my));
outtextXY(x0-15,y0+round(sin(pi/2)*my),'-1');
{подриси оси Х}
for i:=1 to 6 do   {максимальное количество засечек в одну сторону}
 begin
  line(x0+round(i*pi*mx/2),y0-3,x0+round(i*pi*mx/2),y0+3); {засечки на оси Х}
  line(x0-round(i*pi*mx/2),y0-3,x0-round(i*pi*mx/2),y0+3);
  if i mod 2=0 then {подписи через 1}
   begin
    str(i div 2,s);
    if s='1' then s:='';{1pi 1 не пишем}
    outtextXY(x0+round(i*pi*mx/2),y0+10,s+'pi');
    outtextXY(x0-round(i*pi*mx/2),y0+10,'-'+s+'pi');
   end;
  end;
{центр}
outtextXY(x0+5,y0+10,'0');
{подписи концов осей}
outtextXY(getmaxX-10,y0-10,'X');
outtextXY(x0-10,10, 'Y');
dx:=0.001;
{график}
x:=-3*pi;
while x<=3*pi do
 begin
  px:=x0+round(x*mx); {изменение по оси Х}
  y:=sin(x)/x; {график в реальных координатах,
                при х=0 y=1 - первый замечательный предел}
  py:=y0-round(y*my);{в экранных}
  putpixel(px,py,12);{график красным}
  x:=x+dx; {наращиваем х}
 end;
readln
end.

program p;
uses graph;
const m=10;
        step=1/m;
        x0=320;
        y0=240;
var gd,gm,i:integer;
     x,y:real;
     sx1,sy1,sx2,sy2:integer;
begin
       gd:=0;
       initgraph(gd,gm,'');
       setcolor(12);
       x:=-x0/m;
       y:=sin(x)/x;
       repeat
               sx1:=x0+roun(x*m);
               sy1:=y0-roun(y*m);
               x:=x+step;
               y:=sin(x)/x;
               sx2:=x0+roun(x*m);
               sy2:=y0-roun(y*m);
               line(sx1,sy1,sx2,sy2);
       until x>-step;
       x:=step;
       y:=sin(x)/x;
       repeat
               sx1:=x0+roun(x*m);
               sy1:=y0-roun(y*m);
               x:=x+step;
               y:=sin(x)/x;
               sx2:=x0+roun(x*m);
               sy2:=y0-roun(y*m);
               line(sx1,sy1,sx2,sy2);
       until x>x0/m;
       readln;
edn.

round