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

По формуле герона площадь треугольника со сторонами 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 на экран.

program first;

var z,d,k: integer;

begin

writeln('input z,d,k');

readln(z,d,k);

if (d> =z) then

d: =d-z

k: =k+1

writeln(d,'    ',k);

readln;

end.

uses crt; var a[1..100] of integer; i,n,count: integer; begincount: =0; read(n); for i: =1 to n do read(a[i]); if a[i]> 0 then inc(count); write(count); end.