Объяснение:
^ не ставится, но действие выполняется, у себя его ставьте!
Var
i, min, a, n: integer;
begin
min := trunc(power(2, 31) - 1);
readln(n);
for i := 1 to n do
begin
readln(a);
if (a < min) then
min := a;
end;
writeln(min);
end.
Поддерживает проводной джойстик