Составить программу ** языке pascal. используя цикл repeat...until. Определить...

Question

Составить программу на языке pascal. используя цикл repeat...until.

Определить минимальное число из введенной с клавиатуры последовательности положительных чисел, ввод заканчивается отрицательным числом.

Answer 1

var
  a, min: integer;
begin
  min := 1000;
  repeat
    readln(a);
    if(a < min) and (a >= 0) then min := a;
  until(a < 0);
  writeln('Минимальное число: ', min);
end.