Графика в Паскаль

[Nord18]

Доброго времени суток!! Друзья помогите мне пожалуйста! Нужно нарисовать вот такой телефизор а у меня не получается...Если не трудно, напишите код...С уважением!

[Grag]

В свое время у меня тож многое не получалось...
Сидел кропотливо изучал, разбирался, пробовал...
С моим резюме и портфолио можно ознакомиться в соответствующих разделах на моем сайте:
http://igor-bachin.narod.ru
или вот по этим ссылкам:
http://www.autsorser.ru/index.php?action=rsm&user=59
http://www.autsorser.ru/index.php?action=prtfl&user=59

Контакты:
e-mail: skiper@rol.ru
icq: 585281783
Skype: delmas61

[Nord18]

Это конечно всё очень интересно, но Игорь, может вы мне поможите?

[Grag]

И в чем же должна заключаться моя помощь?

[Nord18]

Если не сложно, подскажите как правильно создать такой рисунок?

[999Crow999]

program za;
uses graph,crt;
var
x,y,xmax,ymax,gd,gm: integer;
begin clrscr;
gm:=2;
gd:=9;
initgraph(gd,gm,'C:\');
setcolor(white);
x:=540;
y:=80;
moveto(x,y);
linerel(-400,0);
linerel(-20,20);
linerel(0,300);
linerel(400,0);
linerel(20,-20);
linerel(0,-300);
linerel(-20,20);
linerel(-400,0);
moveto(520,100);
linerel(0,300);
moveto(130,110);
linerel(0,280);
linerel(300,0);
linerel(0,-280);
linerel(-300,0);
ellipse(320,90,15,5,15,5);
moveto(315,90);
linerel(-35,-40);
moveto(325,90);
linerel(35,-40);
ellipse(475,130,15,5,15,5);
ellipse(475,190,15,5,15,5);
ellipse(475,250,15,5,15,5);
readln;
end.

перед запуском файл EGAVGA.BGI в папке (гдетвой паскал)\BGI скопируй на диск С:\

[Nord18]

Большое спасибо!