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

var

a, b, min : integer; / / объявляем переменные целочисленного типа.

begin

writeln ('введите последовательность чисел, окончание ввода - отрицательное число:');

readln (min); / / считываем первое значение последовательности и считаем его минимумом.

repeat / / начало цикла.

readln (a); / / считываем значение, введенное с клавиатуры.

if ((a = 0)) then / / сравниваем значение с минимумом.

min : = a; / / записываем число в min.

until a < 0; / / выходим из цикла, если введено отрицательное число.

write ('Минимальное число из введенной последовательности равно: ', min); / / вывод строки.

end.