pocetnicki problem u paskalu

paskal
vezba je da napisem program koji od korisnika zahteva da upise broj

meseca i zatim da prikaze broj dana za doticni mesec(zasas se

zanemaruju prestupne godine).
evo kako sam ja uradio :
U ovoj vezbi se zahtevala upotreba ' CASE '.

program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;
var
brojmeseca,brojdana:integer;
begin
writeln('Molim upisite broj meseca: ') ;
readln(brojmeseca);
writeln;
writeln(brojmeseca);
readln;
if brojmeseca = 1
then
writeln('Januar mesec ima 31 dana');
readln
else
case brojmeseca of
3,5,7,9,10,12 : brojdana := 31;
4,6,9,11 : brojdana := 30;
2 : brojdana := 28;
readln;

end

Napisao sam program u paskalu koji omogucava da kad upisete neki

broj,vidite ime meseca za doticni broj i broj dana u mesecu.
Ono sto ne znam a po knjizi je da bi ovo trebalo nekako skratiti

uprostiti (ugnjeZdeni IF iskazi mogu postati veoma komplikovani ,pa

je tada lakse upotrebiti iskaz CASE.
za ovu vezbu bi trebao biti

case mesec of

1.3.5.7.8.10,12 : brojdana:=31
4,6,9,11 :brojdana :=30
2 := brojdana:=28
end;{case}

moj program je ispod.Kako ga skratiti pomocu Case?
pomoc!!!

program ime_mes_i_br_dana;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
brojmeseca,brojdana:integer;
imemeseca:string;
begin
writeln('molim upisite broj meseca ');
readln (brojmeseca);
if brojmeseca=1
then
writeln('Januar ima 31 dan') ;
if brojmeseca=2
then
writeln('Februar ima 28 dana,a svake cetvrte godine 29 dana');
if brojmeseca=3
then
writeln('Mart ima 31 dan');
if brojmeseca=4
then
writeln('April ima 30 dana');
if brojmeseca=5
then
writeln('Maj ima 31 dan');
if brojmeseca=6
then
writeln('Juni mesec ima 30 dana');
if brojmeseca=7
then
writeln('Juli mesec ima 31 dan');
if brojmeseca=8
then
writeln('Avgust ima 31 dan');
if brojmeseca=9
then
writeln('Septembar ima 30 dana');
if brojmeseca=10
then
writeln('Oktobar ima 31 dan');
if brojmeseca =11
then
writeln('Novembar ima 30 dana');
if brojmeseca=12
then
writeln('Decembar ima 31 dan');
if brojmeseca>12
then
writeln('Taj broj meseca ne postoji');
readln;
end.

Evo kako:


Ovo pisem iz glave, mozda ima neka greska, ali trebalo bi da radi.
(Naravno prepravi onaj komentar...) :-D

Jos treba da ako je m=2 ispitas da li je godina prestupna.
Ali posto ne unosis godinu, za sada ti to nlije potrebno.

A moglo je i sa:

Ali sam ja mislio da hoce da mu se ispise i naziv mjeseca.

pa onda dodas:

const
ime:array[1..12] of String[10] = ('Januar', 'Februar',.....);

a writeln je:

writeln(ime[m], ' ima ', dana[m],' dana');

Da upravo sam na to pomislio nakon sto sam ugasio kompjuter...
Inace ja sve radim na tezi (citaj duzi) nacin, to mi je i profesorica informatike rekla...
A odgovorite mi sad na ovo: "Zasto da bude jednostavno, kad moze biti komplikovano?!" :)

Dosta off-topica od mene, pozdrav!

Pocetnik sam ,video sam sto ste napisali,probao na 100 nacina da iskombinujem to sto ste napisali,ali nece da se pokene.Stao mi je mozak na ovoj kombinaciji:{$APPTYPE CONSOLE}

uses
SysUtils;
const
dana:array[1..12] of String[10] = ('Januar', 'Februar',.....);

var
brojmeseca,brojdana:integer;
begin
writeln('Molim upisite broj meseca: ') ;
readln(brojmeseca);
writeln;
writeln(brojmeseca);
readln;
if brojmeseca = 1
then
writeln('Januar mesec ima 31 dana');
readln
end
case brojmeseca of
3,5,7,9,10,12 : brojdana := 31;
4,6,9,11 : brojdana := 30;
2 : brojdana := 28;
end;


Bio bi zahvalan nekom ako moze da ostavi ceo programski kod.(da mi ispravi greske)
pozdrav i hvala na trudu.

Ti si u svom kodu iskonbinovao pola mog, a pola Toyo-inog rjesenja. Zato ti i nije radilo. Evo gotovog koda i to opet po Toyo-inom prijedlogu :)