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.