program brainly;
var n, i, s:integer;
p:longint;
begin
s:=10;
p:=10;
Write('Dati n:'); readln(n);
Write('S=',s,'+');
for i:=1 to n do begin
s:=s+(10+i);
if(i=n) then begin
Writeln(10+i, '=', s);
end
else begin
Write(10+i, '+');
end;
end;
Write('P=',p,'*');
for i:=1 to n do begin
p:=p*(10+i);
if(i=n) then begin
Write(10+i, '=', p);
end
else begin
Write(10+i, '*');
end;
end;
end.