На паскале: организуйте движение точки через центр экрана справа налево.

Вот маленькая точка летит по экрану...

uses Crt, Graph;
 var gd, gm, i: integer;
begin
 ClrScr;
 InitGraph(gd, gm, ' ');
{
В апострофах расписать путь к драйверу экрана egavga.bgi
}
 SetBkColor(1);
 for i:=640  downto 0 do
   begin
     SetColor(2);
     circle(i,240, 1);
     Delay (10);
     SetColor(1);
     Circle(i,240,1);
   end;
 ReadLn;
end.

Это звуки, запахи, прикосновение.

Выживание популяции животных во многом базируется на обмене информационными сигналами между членами одной популяции. Целесообразное поведение живых организмов строится на основе получения информационных сигналов.

Язык хвостов у волков например.

Животные имеют нервную систему, управляющую всеми стадиями информационного процесса: восприятия, передачи, обработки и использования информации.

В отличие от растительного мира, животные могу передавать информацию друг другу.

Объяснение:

Uses graphABC;
begin
setwindowsize(600,500);
setbrushcolor(clMedGray);
Ellipse(320,30,490,400);
Ellipse(120,30,300,400);
setbrushcolor(clCream);
Ellipse(335,40,480,380);
Ellipse(140,40,280,380);
setbrushcolor(clMedGray);
Ellipse(100,430,500,130);
setbrushcolor(clNavy);
Ellipse(250,240,200,310);
Ellipse(350,240,400,310);
setbrushcolor(clwhite);
Ellipse(240,270,220,300);
Ellipse(360,270,380,300);

setbrushcolor(clblack);
Ellipse(270,330,330,370);
line(300,370,300,400);
Arc(300,280,120,220,-40);

line(50,350,200,350);
line(30,340,190,340);
line(10,330,180,330);

line(410,330,570,330);
line(400,340,560,340);
line(390,350,550,350);

line(240,230,220,150);
line(230,230,180,80);
line(220,230,180,150);

line(360,230,380,150);
line(370,230,430,80);
line(380,230,430,150);

end.
Эта