Помогите нарисовать блок-схему

[Мармеладова]

Помогите нарисовать блок-схему

Привет всем) Помогите, пожалуйста, нарисовать блок-схему по готовой программе.

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)))/(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.

 

[Vladimir_S]

Не, ну до чего народ ленивый пошел - пальцем о палец не ударить, всё няньки нужны! Ведь есть уже даже OnLine сервисы на эту тему, да вот хотя бы Блок-схема онлайн - так нет же, сделайте за меня. Ладно, пожалуйста. Загнал туда Ваш код, оно выдало вот это:

 

[Мармеладова]

Спасибо Вам большое!)