Нарисовать паровоз

program valera;
Uses GraphABC, crt;
Var Driver, Mode:integer;
Procedure GrInit;
Begin
Driver:=Detect; 
InitGraphABC (Driver, Mode, '');
If GraphResult<>0 then
begin
Writeln ('ЋиЁЎЄ* Ё*ЁжЁ*«Ё§*жЁЁ!');
Writeln ('ђ*Ў®в* Їа®Ја*¬¬л ЇаҐаў***');
Halt (1) { ®бв**®ўЁвм ўлЇ®«*Ґ*ЁҐ Їа®Ја*¬¬л б Є®¤®¬ §*ўҐаиҐ*Ёп - 1 }
End
End;
Begin
clrscr;
GrInit; { Ја*дЁзҐбЄЁҐ ¤Ґ©бвўЁп }
setcolor(4);
circle(80,80,20);
circle(80,120,20);
circle(80,160,20);
setcolor(15);
circle(120,80,20);
circle(120,120,20);
circle(120,160,20);
setcolor(1);
circle(160,80,20);
circle(160,120,20);
circle(160,160,20);
setcolor(14);
circle(200,80,20);
circle(200,120,20);
circle(200,160,20);
setcolor(2);
circle(240,80,20);
circle(240,120,20);
circle(240,160,20);
readln;
closegraphaAB;
end.

program valera;
Uses GraphABC;
Begin
setpencolor(clRed);
circle(80,80,20);
circle(80,120,20);
circle(80,160,20);
setpencolor(clBlack);
circle(120,80,20);
circle(120,120,20);
circle(120,160,20);
setpencolor(clBlue);
circle(160,80,20);
circle(160,120,20);
circle(160,160,20);
setpencolor(clYellow);
circle(200,80,20);
circle(200,120,20);
circle(200,160,20);
setpencolor(clGreen);
circle(240,80,20);
circle(240,120,20);
circle(240,160,20);
end.