Паскаль

Написать программу движения по экрану прямоугольника со сторонами 15 и 10 точек по вертекали сверху вниз

Program rec;

uses graphabc;

var x:integer = 1280;

y:integer = 720;

y2:integer = 1;

y3:integer = 15;

begin

setwindowsize (x, y);

setpencolor (clblack);

setpenwidth (3);

Rectangle (x div 2, y2, x div 2 + 10, y3);

while (y3<710) do

begin

y2+=1;

y3+=1;

Rectangle (x div 2, y2, x div 2 + 10, y3);

FillRectangle (x div 2 - 1, y2-3, x div 2 + 11, y2-1);

sleep (50);

end;

end.