Вычислить:(1+2 i)*(2-i)+(3-2 i)*(2-3 i)

program fagasg;
var g,h: Real;
i: integer;
begin
g:=3;
h:=3;
For i:=2 to 10 do 
begin  
g:=g+i+1;  
h:=g*h;  
end;
Writeln(h);
end.