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

var   a, b, min : integer; // объявляем переменные целочисленного типа.begin  writeln (\'введите последовательность чисел, окончание ввода - отрицательное число:\');  readln(min);   // считываем первое значение последовательности и считаем его минимумом.    repeat // начало цикла.      readln (a); // считываем значение, введенное с клавиатуры.      if ((a < min) and (a >= 0)) then // сравниваем значение с минимумом.        min := a; // записываем число в min.      until a < 0; // выходим из цикла, если введено отрицательное число.  write (\'Минимальное число из введенной последовательности равно: \', min); // вывод строки.end.