Программа с использованием функций.

[Маx]

Здравствуйте, помогите пожалуйста написать программу с использованием подпрограммы-функции. Дано действительные числа s, t. Получить
f (t, t-2s, 2.1) + f (1.2, t-s, st), где f (a, b, c) = (2a-b + ab) / (5+| ac |). Помогите пожалуйста, ато не могу разобраться с этими функциями .. Заранее спасибо.

[Маx]

вот что-то написал, посмотрите пожалуйста правильно?
program lab8_1;
uses crt;
var
s,t,z:real;

function f (a,b,c:real):real;
begin
f:=(2*a-b+a*b)/(abs(a*c)+5);
end;

begin
clrscr;
write('Vvedit` t: ');
read(t);
write('Vvedit` s: ');
readln(s);
z:=f(t,t-2*s,2.1)+f(1.2,t-s,s*t);
writeln(z:3:1);
repeat until keypressed;
end.

[eoln]

Ну дык берём калькулятор и сравниваем ответы ))