надо построить блог схемы..

Program data;
 VAR
 A, B, C:INTEGER;
 A_corr, B_corr, C_corr, Date_corr, vis:BOOLEAN;
 
 Begin
 Write('Enter day');ReadLn(A);
 Write('Enter mouth'); ReadLn(B);
 Write('Enter year'); ReadLn(C);
   IF C>0 then C_corr:=True else C_corr:=FALSE;
   IF (C_corr) and (C mod 4=0) and (C mod 400<>0) then vis:=true else vis:=false;
   IF A<0 Then A_corr:=False else A_corr:=True;
   IF B<0 Then B_corr:=False else B_corr:=True;
   case B of
   1,3,5,7,8,10,12: IF A>31 then A_corr:=False;
   4,6,9,11:if A>30 Then A_corr:=false;
   2:if ((vis) and(A>29)) or ((vis=false) and (A>28)) Then A_corr:=false;
   Else B_corr:=false;
   END;
   If (a_corr) and (B_corr) and (C_corr) Then
   WriteLn('The date is CORRECT')Else
   WriteLn('The date is not CORRECT');
   ReadLn;
   END.
---------------------------------------------------------------------------------------
Program CJIoBo;
VAR
 S:STRING;
 i,Imin,Imax:INTEGER;
 b:BOOLEAN;
BEGIN
 WriteLn('Enter the string:');
 ReadLn(S);
 i:=0;
 Imin:=0;
 Imax:=0;
 b:=FALSE;
 REPEAT
   i:=i+1;
   IF (S[i]='*') AND (b=FALSE) THEN
    BEGIN
      Imin:=i;
      b:=TRUE;
    END;
   IF (S[i]='*') AND (i>Imin) AND b THEN
    Imax:=i;
 UNTIL i=Length(S);
 IF (Imin>0) AND (Imax>0) THEN
  WriteLn('The first "*" position is ',Imin,'; the last "*" position is ',Imax) 
 ELSE
 IF (Imin>0) AND (Imax=0) THEN
  WriteLn('The only "*" position is ',Imin) 
 ELSE
  WriteLn('There is no "*" in the string');
 ReadLn;
END.