Задание 6. 1. Написать программу, выводящую горизонтальный отрезок, движущийся снизу вверх

1. Написать программу, выводящую горизонтальный отрезок, движущийся снизу вверх.

uses graphABC;

var x1,x2,y1,y2,y:integer;

begin

x1:=20; y1:=20;

x2:=50; y2:=20;

while y<600 do

begin

setpencolor(clred);

line(x1,y1,x2,y2);

sleep(10);

setpencolor(clwhite);

line(x1,y1,x2,y2);

y1:=y1+3;

y2:=y2+3;

end;

end.