Составь алгоритмы решения : 1. найти значение z по формуле z=6t^3 +t^4 -2,3

Var 
   z, t: double;
begin; 
write('t : '); 
readln(t); 
z := 6 * t * t * t + sqr(t*t)  - 2.3; 
writeln('z = ', z);
end.