Program Miesiac;
var m:INTEGER; {numer miesiaca w roku}
Begin
Write ('Podaj numer miesiaca w roku: ');
Readln (m) ;
CASE m OF
1 : Writeln ('1 - Styczen ');
2 : Writeln ('2 - Luty ');
3 : Writeln ('3 - Marzec');
4 : Writeln ('4 - Kwiecien');
5 : Writeln ('5 - Maj');
6 : Writeln ('6 - Czerwiec ');
7 : Writeln ('7 - Lipiec ');
8 : Writeln ('8 - Sierpien');
9 : Writeln ('9 - Wrzesien');
10: Writeln ('10- Pazdziernik');
11: Writeln ('11- Listopad');
12: Writeln ('12- Grudzien')
ELSE
Writeln('Numer nie poprawny');
End;
readln;
End.
Program Miesiac;
var m:INTEGER; {numer miesiaca w roku}
Begin
Write ('Podaj numer miesiaca w roku: ');
Readln (m) ;
CASE m OF
1 : Writeln ('1 - Styczen ');
2 : Writeln ('2 - Luty ');
3 : Writeln ('3 - Marzec');
4 : Writeln ('4 - Kwiecien');
5 : Writeln ('5 - Maj');
6 : Writeln ('6 - Czerwiec ');
7 : Writeln ('7 - Lipiec ');
8 : Writeln ('8 - Sierpien');
9 : Writeln ('9 - Wrzesien');
10: Writeln ('10- Pazdziernik');
11: Writeln ('11- Listopad');
12: Writeln ('12- Grudzien')
ELSE
Writeln('Numer nie poprawny');
End;
readln;
End.
Program Miesiac;
var m:INTEGER; {numer miesiaca w roku}
Begin
Write ('Podaj numer miesiaca w roku: ');
Readln (m) ;
CASE m OF
1 : Writeln ('1 - Styczen ');
2 : Writeln ('2 - Luty ');
3 : Writeln ('3 - Marzec');
4 : Writeln ('4 - Kwiecien');
5 : Writeln ('5 - Maj');
6 : Writeln ('6 - Czerwiec ');
7 : Writeln ('7 - Lipiec ');
8 : Writeln ('8 - Sierpien');
9 : Writeln ('9 - Wrzesien');
10: Writeln ('10- Pazdziernik');
11: Writeln ('11- Listopad');
12: Writeln ('12- Grudzien')
ELSE
Writeln('Numer nie poprawny');
End;
readln;
End.
Program Miesiac;
var m:INTEGER; {numer miesiaca w roku}
Begin
Write ('Podaj numer miesiaca w roku: ');
Readln (m) ;
CASE m OF
1 : Writeln ('1 - Styczen ');
2 : Writeln ('2 - Luty ');
3 : Writeln ('3 - Marzec');
4 : Writeln ('4 - Kwiecien');
5 : Writeln ('5 - Maj');
6 : Writeln ('6 - Czerwiec ');
7 : Writeln ('7 - Lipiec ');
8 : Writeln ('8 - Sierpien');
9 : Writeln ('9 - Wrzesien');
10: Writeln ('10- Pazdziernik');
11: Writeln ('11- Listopad');
12: Writeln ('12- Grudzien')
ELSE
Writeln('Numer nie poprawny');
End;
readln;
End.