Найти произведение чисел от 1 до 20 составить программу

Program k2;
uses crt;
Var b,i,p:integer;
begin
clrscr;
Write('Vvedite b bolyshe 1 i menyshe 20 = ');
readln(b);
p:=1;
for i:=1 to b do begin
p:=p*i;
end;
write('Proizvedenie = ',p);
readln;
End.