Найти произведение натуральных чисел от 1 до 10

program n1; uses crt; var i,p: integer; beginclrscr; p: =1; for i: =1 to 10 do p: =p*i; writeln(p); readlnend.

майор - артиллерист капитан - летчик лейтенант - связист старшина - минометчик сержант - сапер ефрейтор - танкист

((1+2): 3+4): 5=1

1+2+3-4+5-6=1

(1+2+3+4): 5+6-7=1

(1+2+3-4+5-6+7): 8=1