Не могу нарисовать блок-схему маленькой программы

[prikolist]

Здравствуйте ув.программисты! Нарисуйте пожалуйста блок-схему этой маленькой программки, не знаю как, пожалуйста, меня скоро будут спрашивать.

Вот листинг программы.

Program Xai;
Uses crt;
Var min,i;integer;
v1,v2,v3:array[1..5] of integer;

Begin ClrScr;

writeln;
writeln('Введите 5 элементов вектора V1');
for i:=1 to 5 do read(v1[i]);
readln;
min:=10000;
for i:=1 to 5 do begin
if v1[i]<min then min:=v1[i];
end;
writeln;
write('Min=');
writeln(min);
readln
end.

[SG13]

Program Xai;
Uses crt;
Var min,i;integer;
v1,v2,v3:array[1..5] of integer;
Begin ClrScr;
writeln;
for i:=1 to 5 do 
begin
writeln('Введите ',i,'-ый элемент вектора V1');
readln(v1[i]);
end;
min:=10000;
for i:=1 to 5 do begin
if v1[i]<min then min:=v1[i];
end;
writeln;
write('Min=',min);
readln
end.

а так не прощё? алгоритм элементарный кстати

[prikolist]

Проще, но дело в том что не знаю как нарисовать блок-схему, нарисуйте пожалуйста, очень, приочень нужно. Будут спрашивать.

[SG13]

понимаю что надо, но это настолько просто что не хочется на просто тратить время

[prikolist]

Помогите, кто может, для кого просто, но я не знаю как нарисовать блок-схему программы, указанной выше.