24. в массиве x(1: 10) каждый элемент равен 0, 1 или 5 (заполнить с клавиатуры). посчитать количество пятерок.

Var
x:array[1..10] of real;
i,n:integer;
begin
for i:=1 to 10 do begin
writeln('Введите лемент №',i);
readln(x[i]);
if x[i]=5 then
 inc(n);
end;
writeln('Всего пятерок ',n);
end.