Лабораторные / Лаб_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.