Лабораторные / Лаб_2 / Вар_12 / test2a

program test2a;
var
w,r,s,i:integer;
p,q,z: 1..10;
begin
writeln('Введите целые P,Q,Z [1..10]: ');
readln(p,q,z);
s:=0;
i:=0;
repeat
s:=s+succ(s*i);
i:=i+1
until i=p; (*Выход при i=p*)
writeln(' S=',s);
r:=0;
i:=0;
while i<q do begin (*Выход при i>q*)
r:=r+sqr(i);
i:=i+1
end;
writeln(' R=',r);
w:=2;
for i:=1 to z do
w:=w+i*pred(w);
writeln(' W=',w)
end.