составить блок схему этой программы помогите пожалуйста
program Untitled;
var i:integer;
begin
for i:=10 to 99 do
if 3*(i mod 10)*(i div 10)=i then write(i:3);
writeln;
readln;
end.