Светофор

program zzzzzzzzzzs;
uses graphabc;
 
begin
setwindowsize (400, 500);
setpencolor (clblack);
setbrushcolor (clblack);
rectangle (90, 90, 210, 450 );
setpencolor (clred);
setbrushcolor (clred);
circle (150, 150, 50);
setpencolor (clyellow);
setbrushcolor (clyellow);
circle (150, 260, 50);
setpencolor (clgreen);
setbrushcolor (clgreen);
circle (150, 370, 50);
setpencolor (clblack);
setbrushcolor (clblack);
rectangle (140, 450, 160, 600) 
 
end.

uses GraphABC;
var f:boolean;
procedure KeyPress(key:char);
begin
if key<>#0 then
 begin
  setwindowcaption('Программа завершена');
  f:=false
 end; 
end;
 
Var xc,yc,i,j:integer;
Begin
onkeypress:=KeyPress;
f:=true;
xc:=windowwidth div 2;
yc:=windowheight div 2;
setpencolor(clGray);
setbrushcolor(clGray);
rectangle(xc-80,yc-180,xc+80,yc+180);
setpencolor(clLightGray);
setbrushcolor(clLightGray);
circle(xc,yc-100,40);
circle(xc,yc,40);
circle(xc,yc+100,40);
i:=0;
j:=1;
while f do 
 begin
  case i of 
  0: begin
     setpencolor(clLightGray); 
     setbrushcolor(clLightGray); 
     circle(xc,yc-100,40);
     end;
  1: begin
     setpencolor(clLightGray);
     setbrushcolor(clLightGray);
     circle(xc,yc,40);
     end;
  2: begin
     setpencolor(clLightGray); 
     setbrushcolor(clLightGray);
     circle(xc,yc+100,40);
     end;
  end;
  case j of   
  0: begin
     setpencolor(clRed);
     setbrushcolor(clRed); 
     circle(xc,yc-100,40);
     end;
  1: begin
     setpencolor(clYellow);
     setbrushcolor(clYellow);
     circle(xc,yc,40);
     end;
  2: begin
     setpencolor(clLime); 
     setbrushcolor(clLime);
     circle(xc,yc+100,40);
     end;
  end;
if j=0 then  
 begin
  i:=0;
  j:=1;
 end
else if j=2 then
 begin
  i:=2;
  j:=1;
 end
else if (j=1) and (i=0) then
 begin
  i:=1;
  j:=2;
 end
else if (j=1) and (i=2) then
 begin
  i:=1;
  j:=0;
 end;
 sleep(1000);
end;
End.

program zzzzzzzzzzs;
uses graphabc;
var i,x,y:integer;
begin
x:=250;
y:=400;
setwindowsize (400, 500);
setpencolor (clblack);
setbrushcolor (clblack);
rectangle (140, 450, 160, 600) ;
rectangle (90, 90, 210, 450 );
{машина}
Rectangle (x,y,x+70,y+30);
circle (x+10,y+30,10);
circle (x+70,y+30,10);
Rectangle (x+60,y+10,x+80,y+30);
setpencolor (clred);
setbrushcolor (clred);
Sleep (2000);
circle (150, 150, 50);
setpencolor (clyellow);
setbrushcolor (clyellow);
Sleep (2000);
circle (150, 260, 50);
setpencolor (clgreen);
setbrushcolor (clgreen);
Sleep (2000);
circle (150, 370, 50);
{Здесь движение машины}
For i:=1 to 200 do begin
x:=x+1;
setpencolor (clblack);
setbrushcolor (clblack);
Rectangle (x,y,x+70,y+30);
circle (x+10,y+30,10);
circle (x+70,y+30,10);
Rectangle (x+60,y+10,x+80,y+30);
Sleep (30);
setpencolor (clwhite);
setbrushcolor (clwhite);
Rectangle (x-1,y-1,x+81,y+50);
end;
end.