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

! input / output

a=3.2
b=4.5
c=sqrt(a**2+b**2)
write(6,*)'Risultato :',c
write(6,*)'Radice di ',a,'**2 +',b,'**2 =',c
write(6,"('Radice di ',f5.2,'**2 +',f5.2,'**2 =',f5.2)")a,b,c

end