Lista de exercicios - Array - Vetor

2 - Faça um programa para ler 20 números, calculas a media o maior e o menor número.

Program exercicio2 ;
var
numeros: array[1..20] of integer;
maior,menor,cont,soma: integer;
media: real;
Begin
for cont := 1 to 3 do
begin
writeln('Digite o numero', cont, ':');
readln(numeros[cont]);
if cont = 1
then begin
maior := numeros[1];
menor := numeros[1];
end;
if numeros[cont] > maior
then maior := numeros[cont];
if numeros[cont] < menor
then menor := numeros[cont];
soma := soma + numeros[cont];
end;
media := soma/3;
writeln('O maior número é:', maior);
writeln('O menor número é:', menor);
writeln('A média dos 20 números digitados por você meu camarada é:', media);
End.