var i, p, s: integer; begin
s:=0; p:=1; for i:=15 to 20 do
begin s:=s+i; p:=p*i; end;
writeln('s=',s);writeln('p=',p);
end.
var
i, p, s: integer;
begin
s:=0;
p:=1;
for i:=15 to 20 do
begin
s:=s+i;
p:=p*i;
end;
writeln('s=',s);
writeln('p=',p);
end.