Program Miesiac;

var m:INTEGER; {numer miesiaca w roku}

Begin

Write ('Podaj numer dnia tygodnia: ');

Readln (m) ;

CASE m OF

1 : Writeln ('1 - Poniedzialek');

2 : Writeln ('2 - Wtorek');

3 : Writeln ('3 - Sroda');

4 : Writeln ('4 - Czwartek');

5 : Writeln ('5 - Piatek');

6 : Writeln ('6 - Sobota');

7 : Writeln ('7 - Niedziela');

ELSE

Writeln('Numer nie poprawny');

End;

readln;

End.

Program Miesiac;

var m:INTEGER; {numer miesiaca w roku}

Begin

Write ('Podaj numer dnia tygodnia: ');

Readln (m) ;

CASE m OF

1 : Writeln ('1 - Poniedzialek');

2 : Writeln ('2 - Wtorek');

3 : Writeln ('3 - Sroda');

4 : Writeln ('4 - Czwartek');

5 : Writeln ('5 - Piatek');

6 : Writeln ('6 - Sobota');

7 : Writeln ('7 - Niedziela');

ELSE

Writeln('Numer nie poprawny');

End;

readln;

End.

Program Miesiac;

var m:INTEGER; {numer miesiaca w roku}

Begin

Write ('Podaj numer dnia tygodnia: ');

Readln (m) ;

CASE m OF

1 : Writeln ('1 - Poniedzialek');

2 : Writeln ('2 - Wtorek');

3 : Writeln ('3 - Sroda');

4 : Writeln ('4 - Czwartek');

5 : Writeln ('5 - Piatek');

6 : Writeln ('6 - Sobota');

7 : Writeln ('7 - Niedziela');

ELSE

Writeln('Numer nie poprawny');

End;

readln;

End.

Program Miesiac;

var m:INTEGER; {numer miesiaca w roku}

Begin

Write ('Podaj numer dnia tygodnia: ');

Readln (m) ;

CASE m OF

1 : Writeln ('1 - Poniedzialek');

2 : Writeln ('2 - Wtorek');

3 : Writeln ('3 - Sroda');

4 : Writeln ('4 - Czwartek');

5 : Writeln ('5 - Piatek');

6 : Writeln ('6 - Sobota');

7 : Writeln ('7 - Niedziela');

ELSE

Writeln('Numer nie poprawny');

End;

readln;

End.

---