Помогите,пожалуйста,решить задачку по информатике.С клавиатуры вводится 3 трёхзначных числа.

1. Современное решение, когда можно решить "в одну строчку"

// PascalABC.NET 3.2, сборка 1439 от 09.05.2017
// Внимание! Если программка не работает, обновите версию!

begin
  Writeln('S=',ReadSeqInteger(3).Select(n-gt;n.ToString
    .Where(d-gt;Pos(d,'13579')gt;0)).SelectMany(c-gt;c)
    .Select(c-gt;c.ToDigit).Sum)
end.

Пример
252 337 105
S=24

2. А примерно вот так учат писать в школе - длинно и длинно (да и не особо понятно)

var
  m,i,j,s,d:integer;
begin
  s:=0;
  for i:=1 to 3 do begin
    Read(m);
    for j:=1 to 3 do begin
      d:=m mod 10;
      if d mod 2lt;gt;0 then s:=s+d;
      m:=m div 10
      end
    end;
  Writeln('S=',s)
end.