var a:integer;
t,z:real;
begin
a:=2;
while a<= 12 do
t:=sin(4*a);
z:=3.5*sqr(t)-7*cos(t)+1.6;
writeln('a = ',a:2,' t = ',t:6:3,' z = ',z:6:3);
a:=a+1
end
end.
