помогите пожалуйста написать в паскале программу

var m,y,d,dy:real;beginy:=1;while y<=5 do begin Writeln('При y=',y,' M=',y*y*y-tan(abs(cos(d*d)))); y:=y+0.5;end;end.
ТЕСТ:

При y=1 M=-0.557407724654902

При y=1.5 M=1.8175922753451

При y=2 M=6.4425922753451

При y=2.5 M=14.0675922753451

При y=3 M=25.4425922753451

При y=3.5 M=41.3175922753451

При y=4 M=62.4425922753451

При y=4.5 M=89.5675922753451

При y=5 M=123.442592275345