Логотип
Скачать .pas

program robot;
uses GraphABC;
begin
setwindowsize(280,300);
//Лицо
setpenwidth(2);
rectangle(40,80,240,220);
//Глаза
setbrushcolor(clDarkGray);
setpencolor(clDarkGray);
circle(100,120,20);
circle(180,120,20);
//Нос
moveto(140,140);
lineto(140,160);
//Рот
setbrushcolor(clDarkGray);
setpencolor(clBlack);
rectangle(100,180,180,200);
//Уши
setbrushcolor(clDarkGray);
rectangle(20,100,40,180);
rectangle(240,100,260,180);
//Шапка
moveto(40,80);
lineto(140,20);
lineto(240,80);
lineto(40,80);
floodfill(140,60,clRed);
end.