Мне надо в free pascal сделать так что бы весь текст был белый (автоматический) и только одна строчка выделена в красный, как правильно прописать команду textcolor?

потключаем модуль:  

дальше в операторных скобках пишем:

 

x,y - номер цвета.

 

textbackground(y) - это цвет экрана;

 

clrscr - это процедура очистки экрана(далее будет очистка производится тем цветом, который был указан в  textbackground)

 

textcolor(x) - это процедура установки цвета для последующего вывода символов.

Var  a: array[1..100]of integer;   i,max,c: integer;     begin        for i: =1 to 100 do          begin              a[i]: =random(251)-85;               if i=76 then                  max: =a[i];               if i> 76 then                  if a[i]> max then                      max: =a[i];                   write(a[i],' ');           end;           writeln;           writeln(max);     end.

1. это с ручным вводом a и n var  y, a, n, i: integer; begin  write('введите число ');   readln(a);   write('введите желаемую степень ');   readln(n);   write(a, '^', n, ' = ');   y: =a;   for i : = 2 to n do    y : = y * a;   write(y); end.2. а это с рандомизацией переменныхvar  y, a, n, i: integer; begin  a : = random(30);   n : = random(7);   write(a, '^', n, ' = ');   if n=0 then y: =1 else begin  y : = a;   for i : = 2 to n do    y : = y * a;   end;     write(y); end.