Dennis Wronka
Soulcollector
Code:
program squares
integer::limit,looplimit
print *,"Obergrenze: "
read *,limit
looplimit=limit**0.5
print *,"Quadratzahlen bis ",limit,":"
do i=1,looplimit
print *,i**2
end do
stop
end
Quelle: Fortran WikiBook