Question

Второе задание помогите сделать, пожалуйста.

Answer 1

program z1;
var x:integer;
begin
for x:= -10 to -5 do
writeln(x,(x*x*x/4));
for x:=-6 to 0 do
writeln(x,(cos(x));
end.