Помогите в Turbo Pascal!
Вот мне надо это место которое я выделил сделать Красным цветом

Program m1;
Var a,b:integer;y:real;
Begin
Writeln('**************************************');
Writeln('* Программа КАЛЬКУЛЯТОР *');
Writeln('* УМНОЖЕНИЕ ЧИСЕЛ *');
Writeln('* Автор программы: *');
Writeln('* ˜------------------------------------------*');
Writeln('**************************************');
Writeln('');
writeln('Введите число "A"');
readln(a);
writeln('Введите число "B"');
readln(b);
y:=a*b;
Writeln('Ответ: ',y:5:1);
readln;
readln;
end.

  • uses Crt;
    begin
    TextBackGround(Blue); { цвет фона } TextColor(LightGray); { цвет символов } ClrScr; { очистить экран }
  • uses crt;
    ....
    textcolor(Red);