Решите в паскаль. найти все целые двузначные числа, сумма цифр в которых равна 8.

Var
  i : integer;
begin
  for i := 10 to 99 do
    if i mod 10 + i div 10 = 8 then
      writeln(i);
end.