program prova
implicit none
real :: a,b,c

! input / output

write(6,*)' dammi due numeri'
read(5,*)a,b
c=sqrt(a**2+b**2)
write(6,*)'c=',c

end