Как написать программу в (на) Паскале

uses CRT;
var a,z,p0,p1,p2,p3,p4,p5:real;
QA,PA1,q0,q1,q2,q3,q4,q5:real;

function f(x,a0,a1,a2,a3,a4,a5:real):real;
begin
f:=a5*x*x*x*x*x+a4*x*x*x*x+a4*x*x*x+a2*x*x+a1*x+a0;
end;

begin
read(a);
read (p0,p1,p2,p3,p4,p5);
read (q0,q1,q2,q3,q4,q5);
QA:=f(a,q0,q1,q2,q3,q4,q5);
PA1:=f(a+1,p0,p1,p2,p3,p4,p5);
z:=f(a+QA*PA1,p0,p1,p2,p3,p4,p5);
writeln (z);
readln;
end.

Сергей Рязанцев какойто бред написал.. )

а с условием по подробнее можно? а то мало понятно, чего надо то...