Turbo Pascal(nilai minimal)

nah sobbb...
ini salah satu program pascal yang sederhana juga yaitu yaitu pencarian nilai minimal....
coba kalian simak dan pelajari...
semoga bermanfaat....

uses wincrt;
var min,i,jum:integer;
    data  :array[1..10]of integer;

begin
     clrscr;
     write('Jumlah Data = ');readln(jum);
     for i:=1 to jum do
     begin
       write('data ke ',i,' : ');readln(data[i]);
     end;



     min:=9999;
     for i:=1 to jum do
     if min>data[i] then
         min:=data[i];   

     
     writeln('nilai min:',min);
        readln;
        donewincrt;
end.