Umiestnenie súboru www.TrSek.com/zadania/mesiace.pas

{ MESIACE.PAS                                                       }
{ Program podla cisla mesiaca zisti rocne obdobie.                  }
{                                                                   }
{ Author: Juraj Pupak                                               }
{ Date  : 27.10.2006                           http://www.trsek.com }

program Mesiace;
uses crt;
var i : real;

begin
clrscr;
writeln('Program podla cisla mesiaca zisti rocne obdobie.');
writeln('------------------------------------------------');

write('Zadaj cislo mesiaca: ');
readln(i);

IF (i >= 3) and (i <= 5)  THEN
   begin
     writeln('Jar');
   end;

IF (i >= 6) and (i <= 8) THEN
   begin
     writeln('Leto');
   end;

IF (i >= 9) and (i <= 11) THEN
   begin
     writeln('Jesen');
   end;

IF (i = 12) or (i = 1) or (i = 2) THEN
   begin
     writeln('Zima');
   end else
       IF (i > 12) or (i < 1) THEN
          begin
            writeln('Zly mesiac');
          end;
readln;
end.

Copyrigth by Zdeno Sekerak 2007, http://www.trsek.com