Даны 10 всех чисел , отыскать творенье только тех , которые

Program probzvedenbe;
Var
a, b, c: integer;
Begin
c := 1;
for b:=0 to 9 do
begin
readln (a);
if (a gt;= 20) and (a lt;= 40) then
c := c * a;
end;
writeln(Произведение введенных числе, находящихся в диапазоне от 20 до 40 одинаково , c);
readln;
End.

(Программа испытана в PascalABC)