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.