Програмування і алгоритмічні мови

setcolor(1);

setlinestyle(0,0,1);

for(I=0;I
{line(196,277-I,444,277-I);delay(100);}

setcolor(1);

setlinestyle(0,0,1);

for(I=0;I
{line(496,307-I,619,307-I);delay(0);}

iiii=0;

do

{

setcolor(15);

line(155,125,190,125);

line(155,125,155,228);

line(190,125,190,146);

delay(200);

setcolor(2);

line(155,125,190,125);

line(155,125,155,228);

line(190,125,190,146);

delay(200);iiii=iiii+1;}

while(iiii<3);

setcolor(10);

rectangle(175,148,205,162);

setfillstyle(1,12);floodfill(180,155,10);