ПАСКАЛЬ составить блок схему и программу

Question

1) Найти среднее арифметическое цифр, введённого натурального числа x
2) найти среднее арифметическое четных цифр x
Помогите пж

Alex Ivanov · Answer

var 
    x,a:longint; 
    k1,k2:byte; 
    s1,s2:real; 
  begin 
      write('Введите х: '); 
      read(x); 
      s1:=0; 
      s2:=0; 
      k1:=0; 
      k2:=0; 
      while x<>0 do 
      begin 
          a:=x mod 10; 
          k1:=k1+1; 
          s1:=s1+a; 
          if a mod 2 = 0 then 
          begin 
              s2:=s2+a; 
              k2:=k2+1; 
          end;      
          x:=x div 10; 
      end; 
  writeln('Среднее всех цифр: ',s1/k1);  
  writeln('Среднее четных цифр: ',s2/k2);  
  end.