with Text_IO; use Text_IO; procedure Naptar is Nap : Positive; Szám : String ( 1 .. 10 ); Szám_Hossza : Natural; begin Put ( "Nap: " ); Get_Line ( Szám, Szám_Hossza ); Nap := Positive'Value ( Szám ( 1 .. Szám_Hossza )); case Nap is when 1 => Put_Line ( "Első munkanap." ); when 3 => Put_Line ( "Középső munkanap." ); when 5 => Put_Line ( "Utolsó munkanap." ); when 2 | 4 => Put_Line ( "Szürke hétköznap." ); when 6 .. 7 => Put_Line ( "Hétvége." ); when others => Put_Line ( "Egy héten csak 7 nap van!" ); end case; end Naptar;