Ideone.com

fork download

program get_pay
real::hours,pay,pay_rate
read *,hours,pay_rate
pay=pay_rate*hours
print *,"Employ's pay is:",pay
end program

Success #stdin #stdout 0.01s 5284KB

stdin

7.90
42

stdout

 Employ's pay is:   331.800018

https://ideone.com/VibVNZ

language:

Fortran (gfortran 8.3)

created:

visibility:

public

Share or Embed source code

The brand new service which powers Ideone!

Widget for compiling and running the source code in a web browser!