Составьте блок-схему и программу Pascal

Вычисление радиуса окружности, описанной вокруг треугольника:
Блок-схема - в прилагаемом файле.
var a,b,c,p,s,r:real;
begin
readln(a,b,c);
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
r:=a*b*c/(4*s);
writeln('R = ',r:5:2);
end.

Пример:
3 4 5
R = 2.50