Дан массив состоящий из 10 целых чисел, определить число элементов массива больше 20 и меньше 25

Можно забить вручную, убрать mass[i]:=random(100); а поставить readln(mass[i]);

program mass1;var i,n:integer;mass: array[1..10] of integer;beginfor i:=1 to 10 dobeginmass[i]:=random(100);write(mass[i], ' ');end;writeln('Элементов больше 20');for i:=1 to 10 dobeginif mass[i]>20 then write(mass[i], ' ');end;writeln('Элементов меньше 25');for i:=1 to 10 dobeginif mass[i]<25 then write(mass[i], ' ');end;end.