Pascal abc 3. даны векторы а(10) и в(20). вычислить ожидание м . применить процедуры для ввода и вывода вектора, а функцию- для вычисления м.​

н, Нажмите на фрагмент, чтобы вставить его в текстовое поле.

Объяснение:

 Международная академия музыки Елены Образцовой для российских и зарубежных певцов откроется в Санкт-Петербурге в 2015 году.

Сейчас ремонт в здании на Невском проспекте, предоставленном для будущей академии, практически завершён. Академия Образцовой расположится на внутренней территории Гостиного Двора. Сейчас там ведутся ремонтно-реставрационные работы.

У академии есть предварительная договоренность о сотрудничестве с представителями мировой оперной сцены: Миреллой Френи, Ренатой Скотто, Монсеррат Кабалье, Хуаном Понсом. Сообщается, что Иосиф Кобзон выразил готовность вести в академии мастерскую эстрадного пения.

Сначала надо избавиться от ошибок (пункт №3)
иначе не сможем выполнить 1 и 2 пункт задания.
  Исправляем if N mod 10 k:=N mod 10; на if (N mod 10 < k) then k:=N mod 10;
  Исправляем N:N div 10; на N:= N div 10;
 
После исправления ошибок при вводе 537 получим 3
Программа будет работать правильно для любого числа,
у которого вторая цифра слева меньше первой цифры, например:
7193

Чтобы программа работала правильно для всех чисел надо
изменить это: while N > 10 do на while N > 0 do

После всех исправлений код программы стал таким:
var
  N, k: integer;
begin
  readln(N);
  k := 9;
  while N > 10 do
  begin
    if (N mod 10 < k) then k := N mod 10;
    N := N div 10;
  end;
  write(k)
end.