Upload New File

Sonderuebung/WiSe24-25/SU02_2024_10_29_Datentypen/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