program t;
var
a: array [1 .. 15] of integer;
i: integer;
begin
writeln('Введите результат спортсмена');
for i := 1 to 15 do
begin
writeln(a[i], '-й спортсмен ');
readln(a[i]);
end;
min := a[1];
for i := 1 to 15 do
if a[i] < min then
min := a[i];
end.