program abacus
implicit none

real :: a, b

write(*,*)'Podaj pierwsza liczbe'
read(*,*) a

write(*,*)'Podaj druga liczbe'
read(*,*) b


write(*,*)'Suma tych liczb to ', a+b, 'roznica to ', a-b
write(*,*)'Iloczyn to ', a*b, 'a iloraz to ', a/b
write(*,*)'Ponadto moge jeszcze policzyc ich kwadraty: a2 =', a**2 , 'a b2=', b**2
write(*,*)'Poniewaz jestem w dobrym humorze - pierwiastek z a to ', sqrt(a)

end