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

uses graphabc;
begin
setwindowsize(1000,600);
setpencolor(RGB(255,0,0));
setbrushcolor(clBlue);
rectangle(100,200,400,450);
setbrushcolor(clYellow);
rectangle(200,250,300,350);
setpencolor(clRed);
setpenstyle(psDot);
setpenwidth(2);
line(250,250,250,350);
line(200,300,300,300);
setpenstyle(psSolid);
setpenwidth(1);
line(100,200,250,0);
line(250,0,400,200);
setbrushcolor(clLightGreen);
setbrushhatch(bhCross);
circle(250,125,30);
floodfill(250,70,clPlum);
setpencolor(clOrange);
circle(850,80,30);
floodfill(850,80,clOrange);
setpenwidth(2);
line(820,80,800,80);
line(880,80,900,80);
line(850,80,850,30);
line(850,110,850,130);
line(835,65,810,50);
line(875,65,895,50);
line(827,100,810,115);
line(865,95,890,110);
setbrushcolor(RGB(139, 69, 19));
setpencolor(clBlack);
rectangle(550,450,580,300);
setbrushcolor(clWhite);
setpencolor(clWhite);
rectangle(530,300,590,200);
setpencolor(clBlack);
setbrushcolor(clGreen);
ellipse(530,310,600,200);
end.