Один раз я с семьей решили поехать в лес. (Суда ты пишешь что в лесу был пикник ну или что-то другое и пишешь что ты туда взял(а) но это не обязательно)) . И в лесу была узкая тропинка я пошла по ней , а потом за ним была большая дверь, которая вела вела в прекрасный сад.В саду была речка и много деревьев, я прогулялась по саду.И в саду я нашла очки и я посмотрела по сторонам но никого не было. (Потом ты пишешь суда что я узнала что это очки времени и я куда то попала и все )).
begin i := 1; {порядковый номер введенного с клавы числа} readln(n); {считываем число в клавиатуры} min := n; {присваеваем минимуму первое введенное число. Если будет введено одно число то оно и есть минимум} mini := i; {присваеваем порядковый номер минимума}
repeat{повторяем} i := i + 1; {порядковый номер введенного с клавы числа} readln(n); {считываем число в клавиатуры} if (n <> 0) and (min > n) then begin {если введенное число меньше минимума, то заменяем минимум} min := n; {присваеваем минимуму число} mini := i;{присваеваем порядковый номер минимума} end; until n = 0;{до тех пор пока n=0}
