Question

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

Answer 1

uses graphabc;
var a:integer;
begin
readln(a);
setwindowsize(640,640);
if(a<0) then 
begin
Line(100,100,100,600);
end
else
Line(600,100,600,600);
end.