pascal измучился думать что не так?

Answer 1

var i, min:integer;
begin
readln (i) ;
min:=i;
while (i) 0) do
begin
if (i больше или меньше или равно - нет условия (min) then min:=i;
readln (i) ;
end;
readln;
end.
в итоге написано следующе: взять и присвоить мин значение и. проверить если и больше меньше равно не равно - не написано. . тогда опять взять и и ждать нажатие кнопки ентер