Составить программу поиска наименьшего значения среди четырёх чисел

var ar:array[1..4] of integer;i,k,min:integer;begin;min:=2147483647;for i:=1 to 4 dobegin;readln(ar[i]);if ar[i]<min then min:=ar[i];end;writeln(min);end.