{codeblock}
program MinNumber;

var
N, number, minNumber, i: integer;

begin
write('Enter the number of elements: ');
readln(N);

write('Enter number 1: ');
readln(minNumber);

for i := 2 to N do
begin
write('Enter number ', i, ' : ');
readln(number);

end;

writeln('The smallest number is: ', minNumber);
end.
{text}
В этой программе сначала запрашивается количество чисел N, затем вводятся сами числа и находится минимальное из них.