Напишите программу на языке Паскаль: Найдите периметр и площадь треугольника по заданным сторонам по формуле Герона, где p=0,5(a+b+c)

DIM Nazv1$, Nazv2$
DIM P1%,O1%,D1%,P2%,O2%,D2%

CLS
INPUT "Nazvanie 1: ", Nazv1$
INPUT "Perviy: ", P1
INPUT "Otvetniy: ", O1
INPUT "Nazvanie 2: ", Nazv2$
INPUT "Perviy: ", P2
INPUT "Otvetniy: ", O2
IF P1+O1>P2+O2 THEN
   PRINT Nazv1$
ELSE
   IF P1+O1<P2+O2 THEN
      PRINT Nazv2$
   ELSE
      IF O1-O2>P2-P1 THEN
         PRINT Nazv1$
      ELSE
         IF O1-O2<P2-P1 THEN
            PRINT Nazv2$
         ELSE
            PRINT "Dopolnitelnoe:"
            PRINT Nazv1$
            INPUT D1
            PRINT Nazv2$
            INPUT D2
            IF D1>D2 THEN
               PRINT Nazv1$
            ELSE
               IF D1<D2 THEN
                  PRINT Nazv2$
               ELSE
                  PRINT "Nichia"
               END IF
            END IF
         END IF
      END IF
   END IF
END IF
END

Пример:

Nazvanie 1: A
Perviy: 2
Otvetniy: 0
Nazvanie 2: B
Perviy: 0
Otvetniy: 2
Dopolnitelnoe:
A
? 3
B
? 3
Nichia

S1=31

S2=32

Объяснение:

Чтобы выиграть первым ходом, в куче должно быть от 16 до 30 камней включительно. Соответственно, чтобы выиграть вторым ходом, необходимо чтобы камней было в два раза больше (если первым ходом игрок уменьшает число камней в два раза), то есть от 31 до 60 камней.

Но первым ходом игрок не обязательно уменьшает число камней в два раза. Он может просто взять один камень. В этом случае, в куче должно быть 31 или 32 камня.

С учетом того, что согласно условию задачи, выигрыш должен наступить независимо от того, каким будет первый ход, искомые значения 31 и 32.