Доброго времени суток всем, есть редкое возможности провести время с дочкой, попросила помочь, отказать не стал а сам Паскаль не знаю, по этому я уповаю только на вашу помощь! За ранее благодарен!

1. Напишите программу, которая определяет среднее арифметическое и среднее геометрическое двух чисел.

2. Напишите программу, которая вычисляет сумму и произведение первых N четных чисел, используя процедуру.

1) Решение 1-ой задачи

Program srednee_dvuch_chisel;
Var a,b:real;
Begin
    write('Введите число А= ');readln(a);
    write('Введите число B= ');readln(b);
    Writeln('Среднее арифметическое= ',(a+b)/2:0:2);
    Writeln('Среднее геометрическое= ',sqrt(a*b):0:2);
    readln;
End.