Ответ:

3)

var

 i,x:integer;

begin

 read(x);

 for i := 1 to x do

   writeln(i,': ',power(i,2),' ',power(i,3))

end.

4)

var

 i,a,b:integer;

begin

 read(a, b);

 for i := a to b do

   writeln(i,'*',i,'=',i*i);

end.

5)

var

 i,a,b,ans:integer;

begin

 read(a, b);

 for i := a to b do

   ans := ans + trunc(power(i, 2));

 write(ans);

end.