№1
var
i: integer;
begin
for i:=35 downto 5 do
writeln(i);
readln;
end.
№2
m:integer;
for m:= 9 downto 7 do
writeln (m*m*m);