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 Pzim ;
var
I, cont:integer;
n, acima, abaixo, nenhuma: real;
begin
randomize;
for cont:= 1 to 100 do
read(n);
if n>50 then acima :=n;
if n<50 then abaixo:=n;
if n=50 then writeln('invalido');
writeln('a quantidade de numeros gerados acima é:',acima);
writeln('a quantidade de numeros gerados abaixo é:',abaixo);
randomize;
End.