Вопрос по информатике:

Срочно, составьте пожалуйста блок-схему, вот по паскалю она решена
сама задача звучит так: В каких двузначных числах удвоенная сумма цифр равна их произведению?var
a : integer;
b : integer;
begin
writeln(' Решение ');
for a:=1 to 9 do
for b:=1 to 9 do
begin
if (a+b)*2=a*b then
writeln(a*10+b);
end;
end.