Решить : дан вектор из 25 элементов. найти минимальное значение. записать на языке pascal и построить алгоритм.

Program chik;
var a:array[1..100]of integer;
i,min:integer;
begin
for i:=1 to 25 do
begin
read(a[i]);
end;
min:=a[1];
for i:=2 to 25 do
begin
if(a[i]<min)then min:=a[i];
end;
write(min);
end.