Var x: integer; begin
write('Введите х=');
read(x);
if x >0 then
write('положительное')
else
write('не положительное');
end.
Нужно сделать так, чтобы положительное выводилось красным цветом, отрицательное синим.(Используя GraphABC)

anastasiyapinoнастя    1   23.02.2022 05:20    1