Составьте программу нахождения чисел произведения чисел от 10 до 16 на языке pascal abc

Program Chisla;
Var a,p:integer;
Begin
P:=1
For a:=10 to 16 do
P:=p*a;
Writeln(P);
End.