Вводятся 10 пар произвольных чисел (a,b). Найти произведение P=П(a+b) — Pascal(Паскаль)

var
a,b,i,P:integer;
begin
P:=1;
for i:=1 to 10 do
begin
writeln('Vvedite chisla a,b');
readln(a,b);
P:=P*(a+b);
writeln('P=',P);
end;
readln;
end.