var m, i: integer; Mas: array [1..10] of integer;
begin
mas[1]:=15;
mas[2]:=10;
mas[3]:=12;
mas[4]:=6;
mas[5]:=5;
mas[6]:=14;
mas[7]:=9;
mas[8]:=17;
mas[9]:=25;
mas[10]:=11;
m:=mas[1];
for i:=2 to 10 do
if Mas[i] < m then m:= Mas[i];
write(m)
end.

ответ 5 почему