Помогите решить информатику.
Тема: Линейные программы.
Вычислить значение выражения.

Program _5;
var a,b,x,y:real;
F,s:real;
begin
writeln (Введите a,b,x,y через пробел: );
readln (a,b,x,y);
F:=(pi-sqrt(a*sqr(b)/(x-cos(a+b))))-3;
s:=(x+y-cos(12-sqr(y)))/(pi+sin(1001+sqr(a)))+sqrt(sqr(x));
writeln(F= ,F);
writeln(s=,s);
end.