{* Задача 469 *}

Unit ZADACH469;
Interface
Implementation
Begin
 writeln('Создать на экране имитацию передвижения (анимацию) прямоугольника (без изменения цвета) указанным образом (при необходимости учесть его увеличение или уменьшение).
');
End.

Program zadach469;

Uses zadach469.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключение модулей *}
Var {* Объявление переменных *}
  x0 : integer;
  y0 : integer;
  i  : integer;
  a  : integer;
  b  : integer;
Begin
  textbackground (blue);
  clrscr; {* Очищаем экран *}
  x0 := 30;
  y0 := 3;
  a := 10;
  b := 1;
  For i := 1 To 4 Do {* Увеличиваем i от 1 до 4 с шагом 1 *}
  Begin
    textbackground(red);
    window (x0, y0, x0 + a, y0 + b);
    clrscr; {* Стираем всё с экрана *}
    delay (1000);
    textbackground(blue);
    clrscr; {* Стираем всё с экрана *}
    y0 := y0 + b+2;
  End;
  
End.