Задали задание по паскале нарисовать флаг-Тувалу

[StudentTalne]

Началась практика мало времини 5 заданий.
Помогите с флагом! Флаг-"Тувалу"

Я вот набросал слегка прошу помоч:
==========================
==========================

uses crt,graph;
var grmode,grdriver:integer;
begin
clrscr;
grdriver:=detect;
initgraph (grdriver, grmode, 'd:\bp\BGI');
if graphresult <>0 then halt(1);
setcolor(5);
rectangle(5,1,635,475);
setfillstyle(1,3);
floodfill(100,100,3);
setcolor(4);
setfillstyle(1,15);
rectangle(1,1,317,238);
floodfill(100,100,4);
line(130,1,130,237);
line(170,2,170,237);
setcolor(4);
setfillstyle(1,4);
floodfill(140,110,4);
setcolor(1);
line(40,2,117,2);
setcolor(1);
line(40,2,117,70);
setcolor(1);
line(118,2,118,70);
setcolor(1);
setfillstyle(1,1);
floodfill(110,12,1);
setcolor(4);
rectangle(1,100,317,140);
setfillstyle(1,4);
floodfill(110,120,4);
setfillstyle(1,4);
floodfill(200,120,4);



readkey;
closegraph;
end.

====================
====================
Зарание Спасибо!

[Serge_Bliznykov]

лень считать координаты, но примерный подход (вариант) покажу:

uses crt,graph;

const
 rhomb: array[1..5]of PointType=
 ((x:2;y:2),
  (x:90;y:90),
  (x:75;y:90),
  (x:2;y:17),
  (x:2;y:2));

 treugL1: array[1..4]of PointType=
 ((x:2;y:27),
  (x:65;y:90),
  (x:2;y:90),
  (x:2;y:27));

 treugL2: array[1..4]of PointType=
 ((x:30;y:2),
  (x:118;y:2),
  (x:118;y:90),
  (x:30;y:2));


var grmode,grdriver:integer;
begin
clrscr;
grdriver:=detect;
initgraph (grdriver, grmode, 'd:\bp\BGI');

if graphresult <>0 then halt(1);
setcolor(5);
rectangle(5,1,635,475);
setfillstyle(1,3);
floodfill(100,100,3);
setcolor(4);
setfillstyle(1,15);
rectangle(1,1,317,238);
floodfill(100,100,4);
line(130,1,130,237);
line(170,2,170,237);
setcolor(4);
setfillstyle(1,4);
floodfill(140,110,4);


setcolor(4);
rectangle(1,100,317,140);
setfillstyle(1,4);
floodfill(110,120,4);
setfillstyle(1,4);
floodfill(200,120,4);

{красная наклонная полоска в левой верхней четверти}
setcolor(4);
setfillstyle(1,4);
FillPoly(5, rhomb);

{синие треугольники в левой верхней четверти}
setcolor(1);
setfillstyle(1,1);
FillPoly(4, treugL1);
FillPoly(4, treugL2);

readkey;
closegraph;
end.

совет.
1) разделяйте изображение на примитивы и в коде выделяйте куски и комментируйте их

2) сделайте процедуру, которая рисует звезду по указанным координатам и потом вызывайте её 9 раз, указывая координаты, куда вывести звёздочку.

[StudentTalne]

Большое Спасибо!
Но в чем проблема у нас методи непохожие....и я мало что понимаю.
Плюс я неопитний только начинающий...
Буду рад если обясниш=)
Вследующий раз буду прислушатся советов.