Create an algorithm and a program for solving the problem: Given 15 real numbers, determine how many

Create an algorithm and a program for solving the problem: Given 15 real numbers, determine how many of them are greater than the first number.

All these 15 numbers will be known to the user in advance, which means you need to write a code that will allow him to enter these numbers.
Let’s create variables for the entered numbers, for the counter and for the first number, since it is with it that the other 14 will need to be compared:
var number, first_number: real; count: integer;
We fill in the first number:
writeln (‘Enter the first number:’);
readln (first_number);
We fill in the remaining 14 numbers:
for i: integer: = 2 to 15 do
begin
writeln (‘Enter a number’, i,;: ’);
readln (number);
if number> first_number then
count: = count + 1;
end;
end.