задача на языке Паскаль, Желательно оператор whileВычислить: P=1+(1*2)+(1*2*3)+(1*2*3*…*R).

program a;
uses crt;
var r,s,p,i,j:Integer;
begin
clrscr;
write('vvesti celoe chislo R-->'); readln(r);
p:=0; i:=1;
while i