Програмування і алгоритмічні мови
setcolor(1);
for(x12,y12,y23;y12<=225;y12++,y23++)
{
setcolor(2);
zasyvka1(x12,y12,y23);
lin1(y12);
delay(100);
setcolor(0);
line(185,y12-1,195,y12-1);
line(185,y23-1,195,y23-1);}
iii=0;
do
{
setcolor(15);
line(455,168,490,168);
line(490,168,490,186);
line(455,168,455,268);
delay(200);
setcolor(2);
line(455,168,490,168);line(490,168,490,186);
line(455,168,455,268);
delay(200);iii=iii+1;}
while(iii<3);
setcolor(10);
rectangle(475,188,505,202);