СДЕЛАТЬ БЛОК-СХЕМУ ЭТОЙ Программки!!!!!!!!!!!!!!!!var summa,count,numb

СДЕЛАТЬ БЛОК-СХЕМУ ЭТОЙ Программки!!!!!!!!!!!!!!!!

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