Помощ ! Блок схема и програма на Паскал

[Chacho]

http://prikachi.com/images/534/3431534n.jpg

program triygylnik_p; 

var 

a,b,c,p: real; 

begin 

write('a='); readln(a); 
write('b='); readln(b); 
write('c='); readln(c); 

if (a<b+c) and (b<a+c) and (c<b+a) then 
begin 
p:=(a+b+c)/2; 
writeln('P=',2*p:2:2); 
write('S=',sqrt(p*(p-a)*(p-b)*(p-c)):2:2); 
end 
else 

write('Ne sushtestvuva takuv triygylnik'); 
readln; 
end.