Написать программу, которая выводит на экран линейный массив из 10 случайных чисел. Причем отрицательные элементы синим цветом, а положительные элементы – красным. Pascal ABC

ох.... цвет поменяю сейчас))

кто такое придумал только... красные еле видно еще а синие вообще почти не видно. Надо было тогда еще и фон сделать светлее.

uses crt;var  a: array [1..10] of integer;  i: byte;  beginrandomize;writeln(' *** Исходный массив ***');for i := 1 to 10 do begin  a[i] := random(50)-25;  if a[i] < 0 then TextColor(1);  if a[i] = 0 then TextColor(15);  if a[i] > 0 then TextColor(4);   write(a[i], ' ');end;TextColor(15);writeln;  end.

uses Crt;var  a:array[1..10] of shortint;  i:byte;begin  randomize;  for i:=1 to 10 do  begin    a[i]:=Random(21)-10;    if a[i]<0 then TextColor(LightBlue)    else if a[i]>0 then TextColor(LightRed)    else TextColor(White);    Write(a[i],' ')  end;  TextColor(White);  Writelnend.