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

// 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.