Анимация привязанная к клавишам - Pascal ABC - Ответ 4669279

uses crt, graphabc;
var x:integer;
begin
lockdrawing;
hidecursor;
repeat
clearwindow;
setwindowsize(640, 480);
setpencolor(clblack);
moveto(111, 72);   {KORPYS}
lineto(111, 116);
lineto(118, 116);
lineto(118, 136);
lineto(132,136);
lineto(132, 116);
lineto(141, 116);
lineto(141, 136);
lineto(155, 136);
lineto(155, 116);
lineto(162, 116);
lineto(162, 72);
lineto(111, 72);
 
 
moveto(111, 72);  {1 Ryka}
lineto(95, 72);
lineto(95, 100);
lineto(92, 100);
lineto(92, 108);
lineto(105, 108);
lineto(105, 100);
lineto(102, 100);
lineto(102, 80);
lineto(111, 80);
 
Moveto(162, 72); {2 Ryka}
lineto(178, 72);
lineto(178, 100);
lineto(181, 100);
lineto(181, 108);
lineto(168, 108);
lineto(168, 100);
lineto(171, 100);
lineto(171, 80);
lineto(162, 80);
 
moveto(128, 72);  {Golova}
lineto(128, 65);
lineto(110, 65);
lineto(110, 45);
lineto(163, 45);
lineto(163, 65);
lineto(145, 65);
lineto(145, 72);
 
setbrushcolor(random(clyellow));
circle(125, 55, 6); {Glaza}
circle(147, 55, 6);
circle(147, 55, 2);
circle(125, 55, 2);
 
 
moveto(112, 45); {Antenka}
lineto(112, 25);
circle(112, 25, 3);
 
 
floodfill(115,75, clsilver); {Zalivki}
floodfill(110,75, clsilver);
floodfill(165,75, clsilver);
floodfill(130,62, clsilver);
floodfill(122,55, clred);
floodfill(143,55, clred);
floodfill(112,25, clBlue);
sleep(100);
redraw;
until keypressed;
end.