Шпаргалка: Построение циклических кодов

for i:=n downto 0 do

begin

if(i=Error)then

TextColor(10)

else

TextColor(9);

write(m[i]);

end;

Key:=false;

end;

end;

TextColor(14);

GotoXY(2,22);

Write('Нажмите любую клавишу...');

Readln;

end;

3:begin

ClrScr;

GotoXY(1,24);

TextColor(14);

Writeln('Работа программы завершена ...');

Readln;

TextBackGround(0);

TextColor(15);

ClrScr;

Key:=true;

end;

end;

Until Key;