Пишет неизвестное имя 'n'. что делать?
var a,b,x,z,y : real ;
begin write ('a=');
readln (a); write('b=');
write ('x=');
readln (x);
write ('z=');
readln(z);
y: =(a*a*a)*(n)+(a*a)*(n*n*n)/sin(a);
writeln (y: 0,84: 5);
end.