Var n: longint;
begin
write('Введите число ');
readln(n);
writeln('Средняя цифра = ', (n div 10000 + n div 1000 mod 10 + n div 100 mod 10 + n div 10 mod 10 + n mod 10) div 5);
writeln('Сумма 1, 2, 4, 5 цифры = ', n div 10000 + n div 1000 mod 10 + n div 10 mod 10 + n mod 10);
end. 

Var
  n,n1,n2,n3,n4:integer;
begin
  Write('Введите пятизначное натуральное число: ');
  Readln(n);
  n1 := n mod 10;
  n2:= (n mod 100) div 10;
  n3:= (n mod 1000) div 100;
  n4:= (n mod 10000) div 1000;
  n5:= n div 10000;
  n:= n1+n2+n4+n5;
  Writeln('сумма: ',n);
  Writeln('среднее: ',n/4);
end.