{* Задача 247 *}

Unit ZADACH247;
Interface
Implementation
Begin
 writeln('Получить на экране слово ТЕСТ Буквы строяться из отрезков, размещаемых в соответствии с конфигурацией буквы в прямоугольнике определенного размера. Осуществить перемещение слова от верхнего края к нижнему и обратно.');
End.

Program pas3819;

Uses zadach247.pas; {* Эту строку можно удалить *}
Uses graph, crt; {* Вызов внешних функций *}
Var {* Объявление переменных *}
  grmode   : integer;
  grdriver : integer;
  up       : integer;
  q        : integer;
  left     : integer;
  b        : boolean;
Procedure slovo;
Begin
  line(left, up, left + 80, up);
  line(left + 40, up, left + 40, up + 80);
  line(left + 90, up, left + 90 + 80, up);
  line(left + 90, up + 40, left + 90 + 80, up + 40);
  line(left + 90, up + 80, left + 90 + 80, up + 80);
  line(left + 90, up, left + 90, up + 80);
  line(left + 180, up, left + 180 + 80, up);
  line(left + 180, up + 80, left + 180 + 80, up + 80);
  line(left + 180, up, left + 180, up + 80);
  line(left + 270, up, left + 270 + 80, up);
  line(left + 270 + 40, up, left + 270 + 40, up + 80);
End;
Begin
  clrscr; {* Очищаем экран *}
  grdriver := detect;
  left := 200;
  initgraph(grdriver, grmode, '');
  While q1000 Do
  Begin
    delay(1200);
    q := q + 1;
    If (up + 80 = getmaxy) Then
      b := true;
    If (up = 0) Then
      b := false;
    If (b = false) Then
      up := up + 1
    Else up := up - 1;
      cleardevice;
    slovo;
  End;
  closegraph;
End.