Tekst programu greet.f

      program greet
      character*16 name
      write (*,*) "Jak ci na imie?"
      read (*,*) name
      write (*,*) "Czesc ",name 
      stop
      end