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

setcolor(2);

zasyvka(x1,y1,y2);

lin(y1);

delay(100);

setcolor(0);

line(485,y1-1,495,y1-1);

line(485,y2-1,495,y2-1); }

setcolor(1);

setlinestyle(0,0,1);

for(I=0;I
{line(196,270-I,444-I*10.5,270-I);

delay(0);}

setcolor(0);

setlinestyle(0,0,1);

for(I=0;I<10;I++)

{line(496,300-I,619-I*11.5,300-I); //вода 2 стала

delay(0);} }

if(k1>7 && k1<=9)

{

setcolor(1);

setlinestyle(0,0,1);

for(I=0;I
{line(11,237-I,144,237-I);delay(0);} //вода 1

setcolor(1);

setlinestyle(0,0,1);