Нарисуйте пожалуйста блок-схему лёгкой задачки, не знаю как,очень нужно...

[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.

[Sabber]

Вот блок-схема к твоей проге

[prikolist]

Спасибо большое, что хоть один человек в мире ответил.