для basic:

REM

CLS

Screen 7

INPUT "a=",a

Line (10,10)-(70,50),2,BF

Поиграйтесь с рисовкой =)

PRINT "Vvedite chislo x1!"
INPUT x1
PRINT "Vvedite chislo x2!"
INPUT x2
PRINT "Vvedite chislo y1!"
INPUT y1
PRINT "Vvedite chislo y2!"
INPUT y2

CLS
SCREEN 12
LINE (x1, y1)-(x2, y2), 5, BF
END