1) var i,k:integer;
begin
 for i := -5 to 60 do
 write(i*i*i,' ');
 readln;

end.
2) var i,k:integer;
begin
k:=0;
 for i := 1 to 100 do
 if i mod 2 <> 0 then k:=k+i;
 writeln(k);
 readln;

end.
3) var i,k:integer;
begin
k:=0;
 for i := -20 to 20 do
 if i mod 2 = 0 then inc(k);
 writeln(k);
 readln;

end.
4) var i,k:integer;
begin

 for i := 10 to 78 do
 begin
 if i mod 2 = 0 then write(5*(i*i*i)-6*i,' ');
 end;
 readln;

end.