Составить алгоритм нахождения суммы первой, третьей и пятой

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

введенного с клавиатуры.

Объяснение:

var s,n:integer;

begin

readln(n);

s:=0;

while n>0 do

begin

s:=s+n mod 10;

n:=n div 10

end;

write(s);

end.

хз ли это тебе, я понимаю это вот так

Объяснение:

program Hello;

var

x5, pr : longint;

begin

  repeat

   write ('input x: ');

   readln (x5);

  until (x5>9999) and (x5<100000);

   writeln((x5 mod 10000 div 1000)*(x5 mod 10000 mod 1000 mod 100 div 10));

end.