По теме "линейный алгоритм". pascal abc найти площадь треугольника по известным трем сторонам (по формуле герона).

P := a * b *c 'nj jndtn                                                                              

Program example;var a, b, c:integer;function gero(a,b,c:integer):double;var p:double;begin  p:=(a+b+c)/2;  gero:=p*(p-a)*(p-b)*(p-c);end;begin  write('Введите A'); readln(a);  write('Введите B '); readln(b);  write('Введите C'); readln(c);  writeln(gero(a,b,c));  readkey;end.