4) Construa um algoritmo para que o computador gere 10 números aleatórios entre 1 a 100.A seguir
escreva a quantidade de números gerados acima de 50 e abaixo de 50.

Program algoritmo;
var
I, cont:inteiro;
n, acima, abaixo, nenhuma: real;
inicio
randomize;
para cont:= 1 to 100 do
leia(n);
se n>50 entaoacima :=n;
se n<50 entao abaixo:=n;
se n=50 entao escreva('invalido');
escreva('a quantidade de numeros gerados acima é:',acima);
escreva('a quantidade de numeros gerados abaixo é:',abaixo);
randomize;
fim.