Определить площадь треугольника, если известны основания и высота. basic

CLS

a:

INPUT "введи основание"; a

IF a<=0 THEN PRINT "не может быть": GOTO a

b:

INPUT "введи высоту"; h

IF h<=0 THEN PRINT "не может быть": GOTO a

S=a*h/2

PRINT "площадь треугольника равна"; S

END