program CountNumbersInRange;

var
num1, num2, num3, num4, num5, num6, num7: Integer;
count: Integer;

begin
count := 0;

writeln('Enter 7 numbers:');
readln(num1, num2, num3, num4, num5, num6, num7);

if (num1 >= 5) and (num1 <= 25) then
count := count + 1;
if (num2 >= 5) and (num2 <= 25) then
count := count + 1;
if (num3 >= 5) and (num3 <= 25) then
count := count + 1;
if (num4 >= 5) and (num4 <= 25) then
count := count + 1;
if (num5 >= 5) and (num5 <= 25) then
count := count + 1;
if (num6 >= 5) and (num6 <= 25) then
count := count + 1;
if (num7 >= 5) and (num7 <= 25) then
count := count + 1;

writeln('The number of all numbers in the range from 5 to 25 is: ', count);
end.