Язык "Паскаль АВС" найти произведение всех двузначных чисел, сумма цифр которых равна 8

Var i,s,a:integer;
Begin
a:=1;
for i:=10 to 99 do 
Begin 
s:=i mod 10+ i div 10; 
if s=8 then a:=a*i; 
end;
writeln (a);
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.