СРОЧНО!!!
ввести с клавиатуры массив из 5 элементов, найти в нем минимальный элемент и его номер.

var a:array [1..5] of integer;i,min,p:integer;beginfor i:=1 to 5 dobeginwrite ('Введите ',i,' элемент массива: ');readln (a[i]);end;min:=a[1];for i:=1 to 5 doif a[i]<min then beginmin:=a[i];p:=i;end;WRITELN;write ('Минимальный элемент массива = ',min,', его порядковый номер ',p);end.