diff --git a/Sonderuebung/WiSe24-25/SU01_2024_10_22_Einfuehrung/02_hello_name.f95 b/Sonderuebung/WiSe24-25/SU01_2024_10_22_Einfuehrung/02_hello_name.f95 new file mode 100644 index 0000000000000000000000000000000000000000..aa6532b292e4cb9261728580125a6dab24b5876c --- /dev/null +++ b/Sonderuebung/WiSe24-25/SU01_2024_10_22_Einfuehrung/02_hello_name.f95 @@ -0,0 +1,14 @@ +! 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