Помогите нарисовать рисунок на паскалюе (Пингвина)

[Safulla]

Люди помогите нарисовать пожалуйста. Я просто навичок, в это не чего не понимаю а завтро зачет сдавать рисунок надо вот картинка:


Вот начало задачи должно выглядить так



А дальше уже рисовать, сделайте пожалуйста, прошу вас. Спасибо

[-HunteR-]

Сам делай, вот тебе сведения полезные:
setcolor(c); сменить цвет линий, точек
Список цветов(c):
0-черный
1-синий
2-зеленый
3-бирюзовый
4-красный
5-сиреневый
6-коричневый
7-светло-серый
8-темно-серый
9-темно-синий
10-светло-зеленый
11-светло-бирюзовый
12-розовый
13-светло-сиренивый
14-желтый
15-белый

setbkcolor(c); сменить цвет фона

line(x1,y1,x2,y); нарисует линию от координаты (x1;y1) до (x1;y1)
moveto(x,y); поместит курсор в позицию
lineto(x,y); нарисует линию от места курсора до (x,y)
rectangle(x1,y1,x2,y2); прямоугольник
circle(x,y,r); x,y - координаты центра, а r-радиус
point(x,y); точка

[Safulla]

блин вот я не могу нарисовать элиментарный рисунок, всетки может поможете а.. Просто еще паскаль на 64 bit не идет. Если тока в универе мудиться с этим. Помогиа пожалуйста, а потом я разберусь че к чему и как делать. Спасибо

[-HunteR-]

Просто еще паскаль на 64 bit не идет

клевета
Для начала представь своего пингвина как основные фигуры(круг, прямоугольник, линия, точка) и рисуй, рисуй, рисуй.
Не будешь учиться - толку с тебя нет, завтра зачет, а ты не понимаешь, это уже твои проблемы.

[Safulla]

Я честно говорю не идет на 64 бита. Скинь пожалуйста ссылку где скачать можно?

[Serge_Bliznykov]

Я честно говорю не идет на 64 бита.

попробуйте запускать TurboPascal под DosBox

[OCTAGRAM]

Сообщение от Safulla

Я честно говорю не идет на 64 бита. Скинь пожалуйста ссылку где скачать можно?

А если School Pak?

[Razorishe]

uses graph;
const n=1; {siniy}
      m=15; {beliy}
      h=7; {seriy}
var gd,gm:integer;
begin
 initgraph(gd,gm,'');
  {risovanie}
   {golova}
 setcolor(n);
 line(270,120,280,115);
 line(270,120,280,125);
 circle(300,120,20);
 circle(297,117,8);
 circle(297,117,3);
   {telo}
 arc(335,175,135,220,55);
 arc(290,155,300,60,20);
 arc(290,190,280,60,20);
 line(305,125,325,170);
 line(325,170,325,205);
 line(325,205,315,190);
 arc(300,195,240,20,15);
   {nogi}
 arc(290,216,1,180,7);
 arc(287,216,1,180,3);
 arc(293,216,1,155,3);
 arc(305,216,1,180,7);
 arc(302,216,1,180,3);
 arc(308,216,1,155,3);
  {zalivka}
   {golova}
 setfillstyle(1,n);
 floodfill(282,120,n);
 floodfill(297,117,n);
 setfillstyle(1,h);
 floodfill(290,118,n);
 floodfill(275,120,n);
   {telo}
 setfillstyle(1,m);
 floodfill(285,175,n);
 setfillstyle(1,n);
 floodfill(310,150,n);
  {nogi}
 floodfill(305,210,n);
 floodfill(290,210,n);
 readln
end.