помогите решить задачу через паскаль 7.0 с оператором while

Question

Вводить с клавиатуры целые отричательные числа до тех пор,пока не будет введено положительное число или нуль и ввести на экран минимальное число среди введённых и его порядковый номер

Карим Ниязов · Accepted Answer

Вот: 
 
var N, Npp, Min, MinN : Longint; 
begin 
Min := 0; MinN := 0; Npp := 0; 
repeat 
Write('Enter number : '); ReadLn(N); 
if N < 0 then begin Inc(Npp); if N < Min then begin Min := N; MinN := Npp; end; end; 
until N >= 0; 
WriteLn('Minimum ', Min, #13#10'Multiple of ', MinN); 
end.

Алексей Чубыкин · Answer

Стучись в агент