Пятиугольник задан координатами своих вершин. Найти его площадь - QBasic

Формулировка задачи:

помогите пожалуйста решить задачи, так как я сама в процедурах и функциях не разбираюсь. Составить программу на QBasic : а)с использованием процедуры б)с использованием функции 1.пятиугольник задан координатами своих вершин.найти его площадь. 2.среди чисел из интервала от А до В найдите все простые числа. заранее спасибо большое)***

Решение задачи: «Пятиугольник задан координатами своих вершин. Найти его площадь»

Листинг программы

CLS
INPUT "Количество углов многоугольника: ", N
IF N > 2 THEN
  DIM A(1 TO 2, 1 TO N)
  'Ввод координат углов многоугольника
  FOR I = 1 TO N
    INPUT "Введите координаты угла X, Y: ", A(1, I), A(2, I)
  NEXT I
  'Расчет площади
  FOR I = 1 TO N - 2
    S = S + (A(1, I) - A(1, I + 2)) * A(2, I + 1)
  NEXT I
  S = S + (A(1, N - 1) - A(1, 1)) * A(2, N)
  S = S + (A(1, N) - A(1, 2)) * A(2, 1)
  S = ABS(S / 2)
  'Расчет периметра
  FOR I = 1 TO N - 1
    P = P + SQR((A(1, I) - A(1, I + 1)) ^ 2 + (A(2, I) - A(2, I + 1)) ^ 2)
  NEXT I
  P = P + SQR((A(1, N) - A(1, 1)) ^ 2 + (A(2, N) - A(2, 1)) ^ 2)
  PRINT
  PRINT "Углы многоугольника:"
  PRINT "N(X, Y)"
  FOR I = 1 TO N
    IF I < 27 THEN
      PRINT CHR$(I + 64); "("; A(1, I); ", "; A(2, I); ")"
    ELSE
      PRINT I; "("; A(1, I); ", "; A(2, I); ")"
    END IF
  NEXT I
  PRINT
  PRINT "Периметр:"; P
  PRINT " Площадь:"; S
ELSE
  PRINT "У многоугольника не может быть меньше трех углов!"
END IF

Объяснение кода листинга программы

В первой строке программы выводится сообщение Количество углов многоугольника: и предлагается ввести количество углов многоугольника.
Если количество углов многоугольника больше двух, то программа переходит к следующей части. В противном случае выводится сообщение У многоугольника не может быть меньше трех углов!.
В следующей строке объявляется массив A размером 2 на N, где N - количество углов многоугольника.
Далее идет цикл, в котором пользователю предлагается ввести координаты углов многоугольника. Координаты вводятся по одной паре за раз.
После ввода всех координат идет расчет площади многоугольника. Используется формула Герона для расчета площади треугольника, но так как многоугольник не обязательно является треугольником, то для расчета площади многоугольника используется цикл.
Площадь многоугольника вычисляется как сумма площадей всех треугольников, образованных парами последовательных углов многоугольника.
После расчета площади многоугольника вычисляется периметр многоугольника. Для этого используется формула Гаусса-Грина.
Периметр многоугольника вычисляется как сумма длин всех сторон треугольников, образованных парами последовательных углов многоугольника.
После расчета периметра и площади многоугольника выводится сообщение с названиями и значениями переменных N, P и S.
Также выводится список углов многоугольника в формате Угол(X, Y).