1. program eje10;
2. uses crt;
3.  
4.  function valido(d,m,a:integer):boolean;
5.  
6.  begin
7.  
8.           if (m>0) and (m<13) then
9.           begin
10.          case (m) of
11.                 1,3,5,8,10,12: if (d>0) and (d<=31) then
12.                                            valido:=True
13.                                else
14.                                valido:=False;
15.                                
16.                 2:      if (a mod 4=0) and (a mod 100<>0) then
17.                 begin
18.                                 if (d>0) and (d<=29) then
19.                                         valido:=True
20.                                         else
21.                                         valido:=False;
22.                 end
23.                  else
24.                  begin
25.  
26.                         if (a mod 4=0) and (a mod 100=0) then
27.                                 if (d>0) and (d<=28) then
28.                                         valido:= true
29.                                 else
30.                          valido:= false;
31.                 end;
32.                
33.                 4,6,7,9,11:
34.                  if (d>0) and (d<=30) then
35.                 valido:=True
36.                  else
37.                  valido:=False;
38.         else
39.                 valido:=false;
40.         end;
41.  end;
42.  
43. end;
44. var
45. d,m,a:integer;
46. begin
47. writeln ('ingrese un dia');
48. readln (d);
49.  
50. writeln ('ingrese un mes');
51. readln (m);
52.  
53. writeln ('ingrese un ano');
54. readln (a);
55.  
56. writeln ('la fecha es: ',valido(d,m,a));
57.  
58.  
59. end.