Question

Подключите графический режим в программе Измените программу так, чтобы сообщение ꞌположительноеꞌ выводилось красным цветом, а сообщение ꞌне положительноеꞌ — синим.(паскаль abc )
var x: integer;

begin

write('Введите x = '); read(x);

if x > 0 then

write('положительное')

else

write('не положительное');

end.

Answer 1

uses crt;  

var x: integer;

begin

write('Введите x = '); read(x);

if x > 0 then

begin

textcolor(red);  

write('положительное')

end

else

begin

textcolor(blue);  

write('не положительное');

end;

end.