Exercicio -Numeros de 1 a 100

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

Program numeros_1_100;

var

x,y,z,n:integer;

Begin

y:=0;

x:=0;

for z:=1 to 10 do

begin

delay(500);

n:=random(100);

Writeln(n);

if n<50>

x:=x+1;

if n>50 then

y:=y+1;

end;

Writeln('Numeros Abaixo:',x);

Writeln('Numeros Acima:',y);

Readln;

End.