В целочисленном массиве из 18 элементов записаны результаты в подтягивании на перекладине учеников 5 класса (возможные значения от 0 до 15). Найти в самый маленький результат и вывести его на экран.

var a:array [1..18] of integer;i,m:integer;begin write ('Массив с данными: '); for i:=1 to 18 do begin a[i]:=random (16); write (a[i],' ') end; writeln; m:=a[1]; for i:=2 to 18 do if a[i] writeln('Минимальный результат: ',m)end.