implicit none

 integer :: i,n

 print*,'Give highest number n to be squared'; read*,n

 do i=1,n
   print*,i**2
 enddo

 end