Нарисовать открытку учителю информатики

uses grapfabc;

uses graphabc;
 
var
P: array of Point;
 
 
begin
 
// размер окна
setwindowsize(800,600);
 
// называем окошко
Window.Title := 'Открытка';
 
// тело открытки 
setpencolor(clblack);
rectangle(100,500,700,70);
floodfill(150,250,clsilver);
floodfill(300,250,clMaroon);
circle(150,270,20);
 
// прямоугольник с надписью
setbrushcolor(clBrown);
rectangle(420,100,670,480);
 
// смайлик
setbrushcolor(clyellow);
ellipse(110,132,395,420);
 
// надпись
setbrushcolor(clwhite);
setfontsize(20);
setfontcolor(clblack);
setfontstyle(fsbold);
textout(450,190,'Поздравляю!'); // вписать что нужно
   
// разделительная черта
setbrushcolor(clblack);
rectangle(400,500,405,70);
 
// улыбка
SetPenWidth(5);
setpencolor(clblack);
arc(250,300,100,180,360);
 
// очки
begin 
setpencolor(clred);
   SetLength(P, 5);
  p[0].x := 110; p[0].y := 200;
  p[1].x := 390; p[1].y := 200;
  p[2].x := 300; p[2].y := 300;
   p[3].x := 250; p[3].y := 250;
  p[4].x := 200; p[4].y := 300;
  Polygon(P)
end;
 
 
end.