Написать программу на языке pascal. 1: 2:

1.var a,x,y:real;
begin;
readln(a);
readln(x);
y:=((sqr(x)-5)+a)/(3*a*sqr(sqr(x)));
writeln(y);
end.
2.var x,y:real;
begin;
readln(x);
y:=sqr(x-1)/(2*sqr(x)-1);
writeln(y);
end.