написать программу которая выводит минимальный элемент введенного с клавиатуры массива целых чисел

Program al; var a: array[1..100] of integer; buf:integer; i,n,min:integer;begin writeln('n='); readln(n); writeln('vvedite massiv='); for i := 1 to n do readln(a[i]); min:=a[1]; for i:=1 to n do if a[i]<min then min :=a[i]; writeln('mn=', min);readln; end.