Программа, для нахождения наименьшего из введенных пользователем чисел - Pascal

Формулировка задачи:

Всем привет! Надо написать программу на Pascal'е. Это школьное Д/З. Недавно начали изучать Pascal.

Задача

: программа должна найти

наименьшее число

из тех чисел, которые

ввел пользователь

(пользователь может ввести

сколько угодно чисел

P. S. Или чтобы программа спрашивала, сколько пользователь введет чисел.), и

вывести

это

наименьшее число на экран

, а если пользователь ввел

не число

(а например букву), то

программа должна сообщить об этом

пользователю. Жду ваших ответов! P. S. Или чтобы программа спрашивала, сколько пользователь введет чисел.

Решение задачи: «Программа, для нахождения наименьшего из введенных пользователем чисел»

Листинг программы

var s:string;
    i,n,c: integer;
    x,min:real;
begin
repeat
write('Введите количество элементов:');
readln(s);
val(s,n,c);
if (c<>0)or(n<1) then writeln('Введите натуральное число');
until(c=0)and(n>0);
writeln('Введите ',n,' действительных чисел');
min:=MaxInt;
for i:=1 to n do
 begin
  repeat
  readln(s);
  val(s,x,c);
  if c<>0 then writeln('Это не число');
  until c=0;
  if x<min then min:=x;
  end;
writeln('Минимальный элемент: ',min:0:2);
end.

Объяснение кода листинга программы

Объявляется переменная s типа string для ввода пользователем числа в виде строки.
Объявляются переменные i, n, c типа integer для использования в циклах и проверок.
Объявляются переменные x и min типа real для хранения пользовательских чисел и нахождения минимального значения.
Начало основной программы (begin).
Цикл повторяется до тех пор, пока не будет введено натуральное число. Пользователю выводится приглашение ввести количество элементов, затем значение считывается в переменную s, преобразуется в число типа integer и присваивается переменной n. Если ввод не является числом или число не является натуральным, выводится сообщение об ошибке.
Выводится приглашение ввести n действительных чисел.
Минимальное значение переменной min устанавливается как максимально возможное целое число (MaxInt).
В цикле от 1 до n выполняются следующие действия:
- Повторяется считывание числа в виде строки в переменную s.
- Считанная строка преобразуется в число типа real и присваивается переменной x. Если ввод не является числом, выводится сообщение об ошибке.
- Если считанное число меньше текущего значения min, это число становится новым минимальным значением.
Выводится сообщение с минимальным элементом min с точностью до двух знаков после запятой.
Конец основной программы (end). Этот код позволяет пользователю ввести натуральное число n и n действительных чисел, после чего программой находится и выводится наименьшее из этих чисел.