[xxx-men]

program zad3; //йа программко зад3

//йя думало тут мне скажут какието переменные, а сказали йух, ну и пох, как хотят пусть компилируют


begin //йа начало программко

Writeln('Vvedite massiv B: '); //говорим юзеру "введи массив В", на траслите, пусть мучаеца сцуко
For i:=1 to 12 do read(B[i]); //спрашиваем по очередно все элементы массива
readln;//ждем нажатия "энтер"
min:=0; //задаем минимальное значение
mini:=0; //задаем номер минимального значения

For i:=1 to 12 do //запускаем цикл от 1 до 12
begin//йа начало цикла

if ((B[i]<min) or (min=0)) and (B[i]>0) then //если значение текущего элемента массива положительно и
// меньше минимального значения из ранее найденых (фуххх, написал бле.....)
begin //тогда
min:=B[i];//приваиваем минимальногму значению значение текущего элемента
mini:=i; //присваеваем номеру минимального элемента номер текущего элемента
end;//йа канец тогда
end;//йа канец цикла, повторять 12 раз

If mini>0 then //если номер минимального, положительного элемента больше 0
begin// тогда:
Writeln('Min index = ',mini); //пишем номер минимального положительного элемента
Writeln('Min = ',min); //пишем значение минимального положительного элемента
end//конец "тогда"
else Writeln('Net polojitelnyh znacheniy'); //иначе пишем "чо за жывотное заполняло масиф???, вот сам посматри"
Writeln('Massiv B = ');//пишем "массив В ="
For i:=1 to 12 do Write(B[i],' '); // выводим все элементы массива через пробел
readln; //ждем нажатия "энтер"
end. //йа конец програмко

ты ток расскажи где таким идиотством страдать заставляют..?