10) Escreva um algoritmo que leia um vetor de 80 elementos inteiros. Encontre e mostre o menor elemento e sua posição no vetor.

Program Pzim ;
var
num:array[1..80]of integer;
cont, menor:integer;
Begin
menor:=81;
for cont:=1 to 80 do
begin
writeln('Informe um número:');
readln(num[cont]);
end;
if num
writeln('O menor número é', num[cont]);
End.