Uses Crt;
var x,y:integer;
Begin
clrscr;
writeln('Палитра цветов Turbo Pascal');
writeln;
for x:=0 to 15 do
begin
textcolor(x);
writeln('Цвет №',x);
end;
readln;
End.
Добрый день. Меня заинтересовал ваш ответ "Добрый день.Это поможетBlink — константы цветов в Turbo Pascal. Для установки мигающего цвета, необх..." на вопрос http://www.liveexpert.org/topic/view/87226-programmirovanie. Можно с вами обсудить этот ответ?