1)Вывести на экран квадраты и кубы нечётных целых чисел от 9 до 1.
2)Даны натуральные числа от 1 до 150. Найти сумму тех из них, которые делятся на 5 или на 7.
3)Напечатать те из чисел от 10 до 50, которые делятся на 4, но не делятся на 6
4)Найти произведение нечетных чисел от 10 до 50, кратных 13
 кто может сделать в Паскале или просто решить?

program task1;var  i :integer;function   kub (x :integer) :integer;  var k :integer;  begin    k:= x*x*x;    kub:= k;  end;  begin  for i:= 9 downto 1 do  if i mod 2 = 1 then  write(sqr(i),' ');  writeln;  for i:= 9 downto 1 do  if i mod 2 = 1 then  write(kub(i),' ');end.program task2;var  i, sum :integer;begin  sum:= 0;  for i:= 1 to 150 do    if (i mod 5 = 0) or (i mod 7 = 0) then      sum:= sum + i;  writeln(sum);end.program task3;var  i, sum :integer;begin  sum:= 0;  for i:= 10 to 50 do    if (i mod 4 = 0) and (i mod 6 <> 0) then      sum:= sum + i;  writeln(sum);end.program task4;var  i, p :integer;begin  p:= 1;  for i:= 10 to 50 do    if (i mod 2 = 1) and (i mod 13 = 0) then      p:= p*i;  writeln(i);end.