Ребята нужна помощь с паскалем 5 задачек,я просто ниче в паскале не понимаю а если не сдам то мне пипец.


1)задано натуральное n составить программу с помощью которой найдите произведение первых и сомножителй: 1*4*9*16*25*36*........

2)написать программу которая определяет максимальное число из введеной с клавиатуры последовательности положительных чисел (длина последовательности не ограничена) для завершения ввода последовательности ввести ноль.

3)составить программу вычисляющую сумму 1/8-4/27+9/64-16/125+25/216-..............с точностью Е=10 в минус 3 степени

4) задана строка символов и букв составте программу с помощью которой замените каждую точку восклицательным знаком а заданную букву - пробелом


5) ученик хочет вычислить средний балл своего аттестата и сравнить его со средним баллом аттестата отца и матери составить программу с помощьюкоторой определите может ли ученик считать что он окончил школу не хуже родителей.

Пожалуйста народ это надо сделать очень срочно

1 задача.
program calc;
var
n,i,p: integer;
begin
p:=1;
readln(n);
for i:=1 to n do
p:=p*sqr(i);
writeln('произведение =',p);
end.

3 задача. Из условия задачи видно, что дана знакопеременная функция вида (-1)^(n+1)*(n^2)/((n+1)^3). Так как последовательность бесконечная, то мы должны ввести какое-либо число n.

program calc;
var
n,i: integer;
s: real;
begin
s:=0;
readln(n);
for i:=1 to n do
if i/2=round(i/2) then s:=s-1*sqr(i)/(sqr(i)*i) else s:=s+sqr(i)/(sqr(i)*i);
writeln('сумма =',s:0:3);
end.

Для остального привожу только описания :).
2 задача: все введенные числа помещаете в динамический массив, затем в чикле считываете значения и находите наибольшее.
4 задача: используйте операторы из библиотеки crt.
5 задача: вводите оценки родителя, суммируете и считаете среднее значение, затем вводите свои оценки, считаете и сравниваете полученные средние баллы.

задача 2.

var
a, max:longint;
begin
mas:=-1;
a:=-1;
while a<>0 do begin
read(a);
if a = 0 then break;
if a>max then max:=a;
end;
writeln(max);
end.

задача 4

var
stroka:string;
symbol:char;
a:byte;
begin
read(stroka);
readln;
read(symbol);
for a:=1 to Length(stroka) do begin
if stroka[a]='.' then stroka[a]:='!';
if stroka[a]=symbol then stroka[a]:=' ';
end;
writeln(stroka);
end.

очень нужно решение этой задачи в паскале помогите пожалуйста: в спортивной лотерее требуется угадать 3 номера. для имеющихся результатов розыгрыша лотереи и известных ответов каждого участника лотереи определить, сколько человек угадали все 3 номере, 2 номера , 1 номер и сколько человек не гадали ни одного номера. каждый участник указывает только 1 вариант прогноза.
исходными данными считать список из 3 выпавших номеров, число участников и списки номеров каждого участника

Clever person =), вот код твоеи програмы:

TOMMY спасибо!!!

пожалуйста помогите решить еще одну задачу: задан массив действительных чисел, содержащих 40 элементов. вычислить сумму четных элементов массива , произведение нечетных и кол-во элементов, которые не являются ни четными ни нечетными. по ошибке решила эту задачу с целыми числами, теперь не знаю как решать с действительными. прошу помогите!!!