Дано пятизначное число. найти сумму первой, третьей ,пятой цифр произведение второй и четвертой

// Pascal ABC.NET var     n, digit : integer;     mult : integer := 1;     sum, count : integer;     begin     readln(n);     while n <> 0 do begin         digit := n mod 10;         inc(count);         if count mod 2 = 1 then             sum += digit         else             mult *= digit;         n := n div 10;     end;     writeln('Summa is ', sum);     writeln('Multiplication is ', mult); end.