{* Задача 470 *}

Unit ZADACH470;
Interface
Implementation
Begin
 writeln('Создать на экране имитацию передвижения текста «Компьютер» снизу вверх по правому краю.');
End.

Program zadach470;

Uses zadach470.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключаем внешние файлы *}
Var {* Необходимые переменные *}
  x0 : integer;
  y0 : integer;
  i  : integer;
Begin
  textbackground (14);
  clrscr; {* Очищаем экран *}
  x0 := 70;
  y0 := 25;
  For i := 1 To 10 Do {* Переменная i увеличивается с 1 до 10 *}
  Begin
    textcolor(i); {* Установить  цвет текста *}
    gotoxy(x0, y0);
    write ('Компьютер');
    delay (1000);
    textbackground(14);
    clrscr; {* Очистка экрана *}
    y0 := y0 - 2;
  End;
  
End.