Перевести из паскаля в делфи прогу: var p: int64; a: integer; i: 2..10; begin a: =1+2; p: =a; i: =2; while i< 10 do begin i: =i+1; a: =a+i; p: =p*a; end; write(p); end. только не надо говорить что одно и тоже получиться мне нужен целый код заранее огромное
