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

uses graphabc;
begin
setwindowsize(400,190);
rectangle(20,20,380,70);
setbrushcolor(clred);
rectangle(20,70,380,120);
setbrushcolor(clblue);
rectangle(20,120,380,170);
end.

uses graphABC;
var x,y,k: integer; xx,yy,a,h,w: real;
begin
setwindowsize(400,400);
a:=0; k:=10; h:=10; w:=0.5;
      xx:=1*k; yy:=H*sin( w*xx + a );
      while xx<=2.9*k do
            begin
            y:=round( H*sin( w*xx + a ));
            x:=round(xx*k);
            putpixel(x,y+100,clblack);
            putpixel(x,y+150,clblack);
            putpixel(x,y+200,clblack);
            putpixel(x,y+250,clblack);
            xx:=xx+0.02;
            end;
      line(100,100+round(yy),100,250+round(yy));
      line(290,100-round(yy),290,250-round(yy));
      floodfill(200,230,clred);
      floodfill(200,170,clblue);
end.