Привет всем) Помогите, пожалуйста, нарисовать блок-схему по готовой программе.
Program CiklSVetvleniem;
uses crt;
const g = 10;
var d, Fr, fi:real;
V: array [0..5] of integer;
i:integer;
begin
writeln('Vvedite diametr');
readln(d);
V[0] := 1;
V[1] := 2;
V[2] := 5;
V[3] := 10;
V[4] := 20;
V[5] := 50;
for i := 0 to 5 do
begin
Fr := abs((exp(2 * ln(V[i])))/(g * d));
if Fr < 50 then
fi := 0.05 * exp(0.2 * ln(Fr))
else
fi := 0.35 * exp(0.1 * ln(Fr));
WriteLn('Koehfficient gazonasyshchennosti smesi = ',fi:0:3,
' pri Fr = ',Fr:0:3);
end;
ReadLn;
end.