testCTR

uses //Подключение модуля
    crt;
var a:integer;
begin
for a:=1 to 30 do
    begin
    textbackground (black); //Перекраска фона
    clrscr; //Очистка экрана и применени цвета фона
    textcolor (13); //Текст будет розовым цветом
    gotoxy (9,6); //Курсор будет перемещён в точку (9;6)
    write (':0 с===3'); //Вывод текста
    delay (100); //Задержка
    clrscr; //Очистка экрана
    end;
    readln;
end. //Конец программы