Это паскаль! Плиз срочно нужно!

1)Найдите сумму натуральных нечетных чисел не превышающих n!!!!

2)Вычислите произведение натуральных чисел кратных  трем и не превышающих n!!!                                                                                                                                                                                                                                                                                               3)Выведите на экран в трех столбцах список чисел от 1 до N, их квадратов и кубов.Число N вводите с клавиатуры!

1)var sum, number, n: integer;begin  sum := 0;  number := 1;  write('Введите n: ');  readln(n);  while (number <= n) do  begin    sum := sum + number;    number := number + 2;  end;  write('Сумма равна ', sum);end.2)var prod, number, n: integer;begin  prod:= 1;  number := 3;  write('Введите n: ');  readln(n);  while (number <= n) do  begin    prod := prod * number;    number := number + 3;  end;  write('Произведение равно ', prod);end.3)var number, n: integer;begin  number := 1;  write('Введите n: ');  readln(n);  writeln('Таблица:');  while (number <= n) do  begin    writeln(number:5, number*number:5, number*number*number:5);    number := number + 1;  end;end.