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

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.

Ka4erga3000    1   07.04.2020 16:26    1