Var
n, s: integer;
begin
readln(n);
s := n mod 10 + n div 10000;
writeln(s);
end.
Var
i,n:integer;
s,p:real;
begin
s:=0; p:=1; n:=3;
for i:=1 to 11 do
begin
s:=s+1/n;
p:=p*1/n;
n:=n+2;
end;
writeln('summa: ',s);
writeln('proizvedenie: ',p);
end.
В счетчиках можно вместо 5 указать константу n и где вывод проверку если равен n запятую не печатаем