Вчём ошибка ? дело в том ,что он не останавливается и я не понимаю почему . uses graphabc,crt; var i,b,c,d: integer; begin setwindowsize ( 1200,800); b: = 100; while b > 0 do begin setpencolor (clblack); i: = i+1; line ( b-i*10, 0,b-i*10,20); delay ( 100); setpencolor (clwhite ); line ( b-i*10, 0,b-i*10,20); end; end.