program cal_vol
real r,h,v
write(6,*) 'radius?'
read(5,*) r
write(6,*) 'hight?'
read(5,*) h
v=3.14159264*r*r*h
write(6,*) 'Volume=',v
stop
end


program convert_from_km/h_to_m/s
real s1,s2
write(6,*) 'speed? [km/s]'
read(5,*) s1
s2=s1/3.6
write(6,*) s2,'[km/h=',s,'[m/s]'
stop
end