Составьте программу в Паскале. Условный оператор. Ввести число А. Начертить вертикальную линию в левой части экрана если

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.