Var
x: integer;
begin
write('Число: ');
readln(x);
writeln('В числе десятков=', x div 10, '; единиц=', x mod 10);
end.
Ответ: Всего 5 пунктов
1)прием и первичную обработку документов→
2)предварительное рассмотрение и распределение документов→
3)регистрацию→
4)рассмотрение документов руководством→
5)передачу на исполнение.
IV.X.MMI
............................................
var i,s,a,k: integer;
begin
for i:=1 to 8 do
begin
readln (a);
if a>0 then
begin
s:=s+a;
k:=k+1
end
end;
writeln;
writeln ('Среднее арифметическое положительных чисел: ',s/k)
end.