Question

плиз помогите раскрасить человечка и сделать фон,вот в этой програмке...плииииз я не умею(программа паскаль авс)
program chelovek;
uses GraphABC;
procedure P1(x,y:integer);
begin
circle(x,y,10);
ellipse(x-15,y+10,x+15,y+70);
line(x,y+70,x-15,y+100);
line(x,y+70,x+15,y+100);
end;
procedure P2(x,y:integer);
begin
circle(x,y,10);
ellipse(x-15,y+10,x+15,y+70);
line(x,y+70,x,y+100);
end;
var x,y,i:integer;
begin
x:=40;
y:=100;
i:=1;
repeat 
 LockDrawing; 
 ClearWindow; 
 setpenwidth(3);
  if odd(i) then P1(x,y)  else P2(x,y); 
 setpenwidth(10);
  line(0,y+100,windowwidth,y+100); 
 Redraw; 
 Sleep(500); 
 x:=x+5; 
 i:=i+1;
until x>=windowwidth-20;
end.

Answer 1

uses GraphABC;procedure P1(x,y:integer);begincircle(x,y,10);floodfill(x,y,clyellow);ellipse(x-15,y+10,x+15,y+70);floodfill(x,y+20,clyellow);line(x,y+70,x-15,y+100);line(x,y+70,x+15,y+100);end;procedure P2(x,y:integer);begincircle(x,y,10);floodfill(x,y,clyellow);ellipse(x-15,y+10,x+15,y+70);floodfill(x,y+20,clyellow);line(x,y+70,x,y+100);end;var x,y,i:integer;beginx:=40;y:=100;i:=1;repeat LockDrawing; ClearWindow(clgreen); setpenwidth(3);  if odd(i) then P1(x,y)  else P2(x,y); setpenwidth(10);  line(0,y+100,windowwidth,y+100); Redraw; Sleep(500); x:=x+5; i:=i+1;until x>=windowwidth-20;end.