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

uses
    graphabc;              // подключаем графику.
var
    a : integer;            // объявляем переменную целочисленного типа.
begin
    writeln(Введите число:);              // вывод строчки на экран.
    readln(a);                                     // считываем значение переменной.
    setpenwidth(5);                            // устанавливаем ширину полосы.
    setpencolor(clRed);                       // устанавливаем цвет полосы.
    if a lt; 0 then                                // если число отрицательное.
        line(20,100,20,320)                 // рисуем линию.
    else                                            // если число положительное, или 0.
        line(620,100,620,320);            // живописуем линию.
end.