A program in Fortran :)

I am blogging from my university :).
In case you need to write a program in Fortran to calculate the length of a line between tow points, there it is:

program otsechka
implicit none

integer::p1x, p1y, p2x, p2y
real:: resultX, resultY
real::finalResult

write(*,*)'P1 x : '
read(*,*)p1x
write(*,*)'P1 y : '
read(*,*)p1y
write(*,*)'P2 x : '
read(*,*)p2x
write(*,*)'P2 x : '
read(*,*)p2y
resultX = p2x - p1x
resultY = p2y - p1y
! ** 2 is to the power of 2.
finalResult = Sqrt((resultX ** 2) + (resultY ** 2))
write(*,*)finalResult
end

Nice, huh ;).