Read the text and write down all the places of public entertainment mentioned in it. Some Tips on Where to Go and What to See in Moscow There is no need to rack one's brains about outings

Var n,s,i:integer;
begin
s:=1;
writeln('Введите число');
readln(n);
for i:=1 to n do
begin
if (i mod 2 =0) then s:=s*i;
end;
writeln(s);
end.