Составьте программу по заданной блок-схеме

var
  p,s,a,b,c:real;
begin
  s:=0;
  writeln('Введите стороны треугольника');
  readln(a,b,c);
   if (a<=0) or (b<=0) or (c<=0) then writeln('Длины сторон треугольника должны быть положительные')
   else
     if (a>0) and (b>0) and (c>0) then
       begin
         writeln('Со сторонами a =',a:5:2,' b = ',b:5:2,' c = ',c:5:2,'  можно составить треугольник');
         p:=(a+b+c)/2;
         s:=sqrt(p*(p-a)*(p-b)*(p-c));
       end
     else
      writeln('Со сторонами a =',a:5:2,' b = ',b:5:2,' c = ',c:5:2,' нельзя составить треугольник');
 writeln('S = ', s:5:2);
 readln;
end.