Задача на Функцию. Turbo Pascal

[Андрей Алексеевич]

Нужно решить задачу с функцией.
С клавиатуры вводятся 5-6 чисел. Функция находит те из них, которые больше 5, и на экран выводит их произведение.
Спасибо за помощь.

[Stilet]

var v,p:double;i:integer;

function foo(x:double):boolean;begin foo:=x>5;end;

begin p:=1;
 for i:=1 to 5-6 do begin
   readln(v); if foo(v) then p:=p*v;
 end;
 write(p); readln;
end.

Подходит?

[Андрей Алексеевич]

Сообщение от Stilet

var v,p:double;i:integer;

function foo(x:double):boolean;begin foo:=x>5;end;

begin p:=1;
 for i:=1 to 5-6 do begin
   readln(v); if foo(v) then p:=p*v;
 end;
 write(p); readln;
end.

Подходит?

Практически. Но главное, я понял смысл, и сам дальше сделаю. Спасибо за помощь!

[Stilet]

Пожалуйста )