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

Паскаль var a,b,c,s,p: real; label e; begin e: a: =0; b: =0; c: =0; read (a,b,c); if ((a+b) < = c) or ((a+c) < = b) or ((b+c) < = a) then begin writeln ('такого треугольника не существует, введите стороны заново'); goto e; end; if ((a+b) > c) or ((a+c) > b) or ((b+c) > a) then begin p: =(a+b+c)/2; s: =sqrt(p*(p-a)*(p-b)*(p-c)); writeln ('площадь треугольника = ',s); end; end.

Program zadanie; var a,b,c: real;       n: integer; begin   writeln('введите количество учеников');   readln(n);   writeln('введите количество пятёрок в классе');   readln(a);   a: =n/100*a;   writeln('введите количество четвёрок в классе');   readln(b);   b: =n/100*b;   writeln('введите количество троек в классе');   readln(c);   c: =n/100*c;   writeln('процент пятёрок  в классе: ',a);   writeln('процент четвёрок в классе: ',b);   writeln('процент троек в классе: ',c); end.

Язык не указан, решение будет на двух языках: наиболее популярном в школах pascal и, на мой взгляд, незаслуженно считающемся "детским и непрофессиональным" basic (в примитивной его версии qbasic). как можно будет убедиться, в бейсике программа получается даже короче и, я бы сказал, даже нагляднее.. pascal: var   x: integer; begin   x: =1;   writeln(' x  y=4x-5');   while x< 30 do   begin writeln(x: 2,4*x-5: 6); x: =x+3 end end. результат выполнения программы:   x  y=4x-5   1      -1   4      11   7      23 10      35 13      47 16      59 19      71 22      83 25      95 28    107 qbasic: print " x                    y=4x-5" for x = 1 to 30 step 3     print x, 4 * x - 5 next x end результат выполнения программы:   x                    y=4x-5   1                      -1   4                        11   7                        23   10                      35   13                      47   16                      59   19                      71   22                      83   25                      95   28                      107