написать программу в паскале что вычисляет произведение первую десятку натуральных числел

а можно как то по яснее там типо с a b c

uses crt; varp:integer;beginp:=1;for var i:=1 to 10 dop:=p*i;writeln('Произведение первых 10 натуральных чисел= ',p);end.