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