Составьте программу в Паскале. Условный оператор. Ввести число А. Начертить вертикальную линию в левой части экрана если A<0 и в правой части экрана в противном случае. Данные A=-20 (результат в левой части), А=20 (результат в правой части).

uses

graphabc; / / подключаем графику.

var

a : integer; / / объявляем переменную целочисленного типа.

begin

writeln ('Введите число:'); / / вывод строки на экран.

readln (a); / / считываем значение переменной.

setpenwidth (5); / / устанавливаем ширину линии.

setpencolor (clRed); / / устанавливаем цвет линии.

if a < 0 then / / если число отрицательное.

line (20,100,20,320) / / рисуем линию.

else / / если число положительное, либо 0.

line (620,100,620,320); / / рисуем линию.

end.