Паскаль

Написать программу движения по экрану прямоугольника со сторонами 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.