Составить алгоритм вычисления площади треугольника по формуле герона

По формуле герона площадь треугольника со сторонами a, b, c находится по формуле  , где p = (a + b + c)/2 запись алгоритма на естественном языке: определим переменные a, b, c, p, s  вещественного типа. считаем с клавиатуры значения a, b, c.  присвоим переменной p значение (a + b + c)/2. присвоим переменной s значение sqrt(p * (p - a) * (p - b) * (p - выведем s на экран.

qbasic не знаю, знаю только вижуал бэйсик

 

for i = 1 to 10

  a(i) = i

next i

for i = 1 to 5

  b = a(10+1-i)

  a(10+1-i) = a(i)

  a(i) = b

next i

 

s = 0;

for i = a to b

  if (i mod 2 =1) and (i mod 3 = 0) then

          s = s + 1

  end if

next i