Question

Составьте блок схему программы:

var
i,j,m:integer;
s,s1,res,check:integer;
begin
i:=10;
while i<=99 do
begin
m:=i;
s:=0;
check:=0;
while m>0 do
begin
s:=s + m mod 10;
m:=m div 10;
end;
m:=i;
for j:=2 to 9 do
begin
res:=m*j;
s1:=0;
while res>0 do
begin
s1:=s1+res mod 10;
res:=res div 10;
end;
if s=s1 then
inc(check);
end;
if check=8 then
writeln('Naideno chislo-> ',i);
inc(i);
end;
readln;
end.​