pi.f90

I suggest you either typed  this as it appears into the compiler, or as an easier way, just copy and paste it!

Note: I do not claim the program will 100% work, but I give it my best. If it doesn't, try tweaking it yourself, or email me about it, and I'll modify and post the improved version later. Good luck!

program pi_calculater
implicit none
real :: pi_answer
real :: up
real :: down

print*, "hello. pi calculater commensing. enter the number to be divided,"
print*, "then divide by what number."

print*, "number to be divided:"
read*, up
print*, "divide by:"
read*, down

if (down==0) then
stop
end if

pi_answer = up/down

print*, "answer is:"
print*, pi_answer

end program pi_calculater