Вычислите периметр и площадь прямоугольного треугольника по двум катетам -QBasic(Бейсик)

INPUT "vvedite a,b"; a, b
p = a + b + SQR(a ^ 2 + b ^ 2)
s = .5 * a * b
PRINT "p="; p, "s=";