"решение задачь на Паскале"

Задача1.

Месячная выплата m по займу в s рублей на n лет под процент p вычисляется по формуле:
m = (s * r * (1 + r)ⁿ) / (12 * ((1 + r)ⁿ – 1)), где r = p / 100.

Программа, вычисляющая значение m (месячную выплату) по известным s (сумме займа), p (проценту) и n (количеству лет), может выглядеть так:

Программа на языке Паскаль: 

var

    m, s, p, n, r, a: real;

begin

    write('Величина заема : ');

    readln(s);

    write('Процент: ');

    readln(p);

    write('Количество лет: ');

    readln(n);

    r := p / 100;

    a := exp(ln(1 + r) * n);

    m := (s * r * a) / (12 * (a - 1));

    m := trunc(100 * m + 0.5) / 100;

    writeln;

    writeln('Месячная выплата: ', m:5:2);

    writeln('Прибыль банка: ', m * 12 * n - s:5:2);

readln

end.

Примечания: Выражение exp(ln(1 + r) * n) вычисляет (1 + r)ⁿ.
Выражение trunc(100 * m + 0.5) / 100 выполняет округление до копейки.

Задача 2: Среди трех чисел найти среднее. Если среди чисел есть равные, вывести сообщение "Ошибка".

Программа на языке Паскаль: 

var

    a1, a2, a3: integer;

begin

    write ('Введите три числа: ');

    readln (a1, a2, a3);

    if (a1 = a2) or (a1 = a3) or (a2 = a3) or ((a1 = a2) and (a2 = a3)) then

        writeln('Ошибка')

    else

        if ((a1 > a2) and (a1 < a3)) or ((a1 < a2) and (a1 > a3)) then

            writeln(a1)

        else

            if ((a2 > a1) and (a2 < a3)) or ((a2 < a1) and (a2 > a3)) then

                writeln(a2)

            else

                writeln(a3);

end.

Пример работы программы:        Введите три числа: 7 4 6

                                               6