Найти произведение натуральных чисел от 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.

компьютер входит в состав бытовой техники.

компьютер является надсистемой для компьтерных программ.

writeln('a[',i,']=',a[i]);

readln;

end.