- #1

- 73

- 0

program squares

implicit none

integer*2 start, finish, i

! ----------------------------------------------Prompt and Input

print*, "Enter the range (two integers) ..."

read*, start, finish

! ----------------------------------------------Validation & Processing

if (start .GT. finish) then

print*, "Invalid: the start must be less than the end value!"

else if (start .LT. 0) then

print*, "Invalid: the range must not have negative values!"

else

do i = start, finish

write(*,*) i, sqrt(i*1.)

end do

end if

! ----------------------------------------------

end