Выведите на экран четные числа до тех пор пока их произведение не станет больше заданного числа. в паскаль.

Program zadacha;
var a,p,n,i:integer;
begin
writeln;
writeln('введи число n');{число, до которого перемножаем четные числа}
read(n);
p:=1;
i:=2;
while p<n do
begin 
write(i);
write(';');
p:=p*i;
i:=i+2;
end;
end.