Найти наименьший элемент массива размером N, элементы которого вводятся с клавиатуры.(В )

Программа:

Pascal:

const N = 5;

var

 arr: array[1..N] of integer;

 i, min: integer;

begin

 min := MAXINT;

 writeln('Введите ', N, ' чисел в массив: ');

 for i := 1 to N do readln(arr[i]);

 writeln('Массив: ', arr);

 for i := 1 to N do if arr[i] < min then min := arr[i];

 writeln('Минимальное число массива: ', min);

end.