Написать программу на языке pascal для вычисления y=1/cosx+ln|tg(x/2)|+(a+b(x))/(c+d(x))

uses crt;
var
y,a,b,c,d: Integer;
x: real;
begin
clrscr;
write('x='); readln(x);
write('a='); readln(a); 
write('b='); readln(b); 
write('c='); readln(c); 
write('d='); readln(d); 
y:= 1 / cos(x) + ln(abs(tan(x / 2)) + (a + b *x) / (c + d *x));
write('y=',y:0:4);  
end;
readln
end.
Наверное так...