Даны длины сторон треугольника. Составьте блок- схему для вычисления полупериметра треугольника и его площадь.Пожалуйста Пожалуйста посчитайте!!!

pascal. добавил схему

program triangle;

var

 a, b, c: real;

 p, s: real;

begin

 Write('Введите стороны треугольника >> ');

 ReadLn(a, b, c);

 if (a + b > c) and (a + c > b) and (b + c > a) and (a > 0) and (b > 0) and (c > 0) then

 begin

   p := (a + b + c) / 2;

   s := sqrt(p * (p - a) * (p - b) * (p - c));

   WriteLn('Полупериметр треугольника равен ',p);

   WriteLn('Площадь треугольника равна ',s);    

 end

 else

  WriteLn('Треугольник со сторонами ',a,', ',b,', ',c,' не существует!')

end.

1. спасибо большое