Составить программу, которая по введенному натуральному числу n вычисляет произведение четных чисел из диапазона от 1 до n. (паскаль)

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