Паскаль! вычислить произведение натуральных чисел, начиная от 12 до 18

Var s,a:integer;
begin
s:=1;
for a:=12 to 18 do
s:= s * a;
writeln (s);
end .
писал с телефона