СДЕЛАТЬ БЛОК-СХЕМУ ЭТОЙ ПРОГРАММЫ!!!!!!!!!!!!!!!!

var summa,count,numb :integer;
begin
summa:=0;
count:=0;
readln(numb);
while numb <> 0 do
begin
if numb mod 17 = 0 then
begin
summa:=summa+numb;
count:=count+1;
end;
readln(numb);
end;
if (summa > 0) and (count > 0) then
writeln(summa,'  ',count)
else 
writeln('No');
end.