Помогите закрыть сессию по Информатике) написания программ на яз. Паскаль

[Mapk94]

Даны задачи.
1. Даны действительные числа a,b,c,d. Вычислите обратную величину произведения заданных чисел.
2. Специалисты считают, что здоровая женщина должна иметь идеальный вес, который можно вычислить по формуле;
Р=(3*А-450+В)*0,225+40, кг,
где А-рост (см);
В-возраст (лет).
Определить идеальный вес вашей матери, подруги.
3. Дано действительное число х. Вычислите значение функции у=f(x), заданной графически (график отсутствует).

Заранее спасибо

[passresx]

2)

program zz;
var p,a,b:real;
begin
writeln('Введите рост');
readln(A);
writeln('Введите возраст');
readln(B);
P:=(3*a-450+b)*0.225+40;
writeln('p=',p,'Кг');
end.