Question

ПОМОГИТЕЕЕ!ПОЖАЛУЙСТА! НАПИСАТЬ ПРОГРАММУ(ПАСКАЛЬ)

Answer 1

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.