Upload New File

Sonderuebung/WiSe24-25/SU01_2024_10_22_Einfuehrung/02_hello_name.f95

+! Aufgabe 3
+
+program hello
+    implicit none
+    
+    CHARACTER(len = 20) :: name 
+        ! Name kann max. 20 Zeichen lang sein
+
+    WRITE(*,*) "Wie heisst du?"
+    READ(*,*) name
+
+    WRITE(*,*) "Hallo ", name
+
+end program hello
\ No newline at end of file