Очень нужно!!! помогите сделать программу нахождения минимального значения из чисел...

Question

Очень нужно!!! помогите сделать программу нахождения минимального значения из чисел введенных с клавиатуры.признак конца ввода 0(паскаль)

Answer 1

Var min,n:longint;
Begin
readln(n);
min:=n;
while(n<>0) do
Begin
if nreadln(N);
end;
writeln(min);
end.