Upload New File

Sonderuebung/WiSe23-24/SU02_2023-10-24/03_hallo_characters.f95

+program hello
+    implicit none
+    
+    CHARACTER (len=30) :: vname, nname
+
+    WRITE(*,*) "Was ist dein Vorname?"
+    READ(*,*) vname
+    
+    WRITE(*,*) "Was ist dein Nachname?"
+    READ(*,*) nname
+
+    WRITE(*,*) "Hallo ", TRIM(vname) // " " // TRIM(nname), "!"
+    WRITE(*,*) TRIM(vname), " ist ein schoener Name. :)"
+
+end program hello
\ No newline at end of file