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

Question

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

---

Answer 1

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.<br>ТЕСТ: