Водномерном массиве а(10) найти значение и индекс наименьшего из положительных элементов .решение паскаль

Const  n = 10; var  i: byte;   min: real;   imin: integer;   a: array[1..n] of real; begin   writeln('введите числа');   for i : = 1 to n do     read(a[i]);   min : = a[1];   for i : = 2 to n do     if min > a[i] then min : = a[i];   for i : = 1 to n do     if a[i] = min then        imin : = i;   writeln('минимальное значение = ', min);   writeln('элемент = ', imin); end.

вот так понятней буде)) ну и более правильно, для

 

var a,b,c,d: integer; beginwriteln('введите 1 число'); read(a); writeln('введите 2 число'); read (b); writeln('введите 3 число'); read (c); d: =a+b+c; writeln('сумма чисел ',a,'+',b,'+',c,'=',d); end. 

т.к 3 вида флагов, значит возводим число 3 в степень равную кол-ву флагов

 

ответ: 81 сигнал