tp7_ej1

program tp7_ej1;
type
    fecha = record
        dia:byte;
        mes:byte;
        anio:word;
    end;
    empleado = record
        nombre:string[15];
        fechaNac:fecha;
    end;

function calcularEstacion (dia,mes:byte): char;
var
est:char;
begin
        case mes of
            1..2: est:='V';
            3:
                case dia of
                    1..20: est:='V';
                    21..31: est:='O';
                end;
            4..5: est:='O';
            6:
                case dia of
                    1..20: est:='O';
                    21..30: est:='I';
                end;
            7..8: est:='I';
            9:
                case dia of
                    1..20: est:='I';
                    21..30: est:='P';
                end;
            10..11: est:='P';
            12:
                case dia of
                    1..20: est:='P';
                    21..31: est:='V';
                end;
        end;
    calcularEstacion:=est;

end;
var
    e1,e2,e3:empleado;
    fech:fecha;
begin
  e1.nombre:='carla';
  e1.fechaNac.dia:=1;
  e1.fechaNac.mes:=4;
  e1.fechaNac.anio:=2000;

  fech.dia:=20;
  fech.mes:=12;
  fech.anio:=2000;
  writeln(calcularEstacion(fech.dia,fech.mes));

end.