Выбрать наименьшее значение из 20 чисел вводимых с клавиатуры. Программа в Паскале

Question

Выбрать наименьшее значение из 20 чисел вводимых с клавиатуры. Программа в Паскале

Answer 1

Var i, min, num: integer;
begin
readln(min);
for i := 1 to 19 do
  begin
    readln(num);
    if (num < min) then
      min := num;
  end;
writeln(num);
end.