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

var i,s: integer;

begin

writeln('summa ');

for i: =100 to 999 do

if i mod 17 =0 then s: =s+i else s: =s+0;

writeln(s)

end.

иванов парикмахер, петров плотник, сидоров мельник, гришин почтальон, алексеев маляр.  и 2413      маляр 1

п   142     мельник 2

с   13     плотник 3

г 12      почта 4

а       парикмахер 5