program PrimoProgramma


implicit none
real :: a,b,c,d

write(6,*) 'dammi due numeri'
read(5,*)a,b

c=a+b
d=a*b

write(6,*) 'Somma= ',c
write(6,*) 'Prodotto= ',d


end