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

Задача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