program experiment;
uses CRT;
var i:integer;
begin
for i:=1 to 10 do
begin
TextBackGround(i); Window(i*5,i*2,i*5+30,i*2+3);
ClrScr;
Delay(1000);
end;
ReadLn
end.Программа experiment;
вкл CRT;
пер i:цел;
начало
от i:=1 до 10 делать
начало
Фон_Текста(i); Окно(i*5,i*2,i*5+30,i*2+3);
Очистить_Экран;
Пауза(1000);
конец;
Читать_Стр
конец.
program experiment;
uses CRT;
var i:integer;
begin
for i:=1 to 10 do
begin
TextBackGround(i); Window(i*5,i*2,i*5+30,i*2+3);
ClrScr;
Delay(1000);
end;
ReadLn
end.
