Напишите программу

[artem2011]

433. Даны действительные числа s, t, a0,..., a12.
Получить 2 3
p(1)-p(t)+p (s-t)-p (1), где
12 11
p(x)=a x +a x +... +a .
12 11 0
Есть примерная
425. Даны действительные числа s, t. Получить
g(1. 2, s)+g(t, s)-g(2s-1, s
t), где g(a, b)=(a*a+b*b)/(a*a+2ab+3b*b+4).

Вот её решение

program Project425;

{$APPTYPE CONSOLE}

uses
SysUtils;

var s,t,sum:real;

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

begin
writeln('Enter s and t:');
readln(s,t);
sum:=f(t,-2*s,1.17)+f(2.2,t,s-t);
writeln(sum:7:1);
readln;
end.

Напишите пожалуйста