Паскаль!найти произведение чисел от 1 до 10 и увеличить его в 5 раз

var p,i:integer;beginp:=1;for i:=1 to 10 do p:=p*i;writeln('p = ',5*p);end.Результат:p = 18144000