Составить программу, которая находит сумму чисел на [5,36] и складывается с произведением первых 5 чисел.

var
n,i,sum,p: integer;
begin
 sum:=0;
 p:=1;
for i:=5 to 36 do sum:=sum+i;
for i:=5 to 9 do p:=p*i;
sum:=sum+p;
writeln ('otvet=',sum);
end.