Вариант со случайными числами
var i,min,k:integer;
begin
min:=100;
randomize;
for i:=1 to 25 do begin k:=random(8,65); if k
writeln(min);
end.
Вариант с вводом чисел с клавиатуры
var i,min,k:integer;
begin
min:=100;
for i:=1 to 25 do begin readln(k); if k
writeln(min);
end.