Question

Кто может помочь нарисовать Блок Схему к этой задачки

procedure TForm1.Button1Click(Sender: TObject);
var a:array[0..9] of integer;
i:integer;
begin

for i:=0 to 9 do
a[i]:=StrToInt(memo1.lines[i]);

for i:=0 to 9 do
begin
if a[i]mod 2=0 then
a[i]:=0
else
a[i]:=1;
end;

for i:=0 to 9 do
memo2.Lines[i]:=IntToStr(a[i]);



end;
end.