{* Задача 468 *}

Unit ZADACH468;
Interface
Implementation
Begin
 writeln('Отобразить на экране разноцветные прямоугольники, расположенные следующим образом:

');
End.

Program zadach468;

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