Помогите пожалуйста составить программы: 1) Определить сколько…

1) vari,m,n: integer; beginread (m); for i: =100 to 999 doif i mod m=0 thenn: =n+1; writeln (n, 'chisel kratno') end.2) vari,m,n: integer; beginfor i: =100 to 999 do beginif (i mod 10=3) or (i mod 100) div 10=3) or (i div 100=3) thenn: =n+1; end; writeln (n, 'chisel soderzit') end.