Составте алгоритм в КУМИРЕ для решения задачи. Определить минимальное число среди a и b

Program pr1;

uses crt;

var  

  n:byte; // Размерность массива

  i:byte; // Счетчик массива

  a:array[1..30] of real; // Массива чисел

  P:real; // Произведение чисел

Begin

  clrscr;

  write('Введите размерность массива: ');

  readln(n);

  writeln('Введите ',n,' элементов');

// Блок ввода

  for i:=1 to n do

     readln(a[i]);

// Блок вывода

  writeln('Исходный массив');

  for i:=1 to n do

     write(a[i]:6:1,' ');

     writeln;

     readln;

// Блок инициализации

  P:=1;

  for i:=1 to n do

     if(a[i]>P) then

        P:=P*a[i];    

  readln;

  writeln('P= ',P);

End.

Возможно я не так понял задание, но вот

Объяснение:

Хочу показать табличный решения подобных задач по шагам.  

Шаг первый. Лена и Аня - сладкоежки. Исключаем капусту и сметану.  

Шаг второй. Аня любит сладкие пироги. Помечаем зеленым цветом для Ани пироги с вареньем. Ване достались пироги с капустой.  

С пирогами разобрались. Помечаем коричневым цветом горизонтали с пирогами.  

Шаг третий. Лене достались блины с вареньем. Помечаем зеленым цветом  для Лены эту клетку, а всю горизонталь - коричневым.  

Шаг четвертый. Осталась одна не закрашенная клетка - для Светы оладьи со сметаной. Закрашиваем ее зеленым цветом.