помогите, пожалуйста, составить программы в паскале)) хотя бы несколько

Ответы:

var a,b:integer, c,d:real,   begina:=1,for b:=1 to 100 do beginc:=b mod 2, d:=b mod 15,if (c&lt,&gt,0) and (d=0) then  a:=a*b,end,write(a),end.