Uses Crt, LEDATE;
procedure DataLeggi(var D: TData);Var G, M, A: Integer; E: DataErrore;begin repeat readln(G); readln(M); readln(A); DataInit(D, G, M, A, E); until(E = 0);end;
procedure DataScrivi(D: TData);Var G, M, A: Integer;begin DataSplit(D, G, M, A); write(G, '/', M, '/', A);end;
Const GG: Integer = 1; MM: Integer = 1; AA: Integer = 1990; PP: Integer = 10;
Var D1, D2: TDATA; EE: DataErrore; SCELTA: Integer; 
Begin
DataInit(D1, GG, MM, AA, EE);DataInit(D2, GG, MM, AA, EE);
Repeat ClrScr; write ('D1: '); DataScrivi(D1); writeln; write ('D2: '); DataScrivi(D2); writeln; writeln('EE: ', EE); writeln;
 writeln(' 0: Uscita'); writeln; writeln('1/11: DataInit(D1/2, GG, MM, AA)'); writeln('2/22: DataLeggi(D1/2) '); writeln('3/33: DataScrivi(D1/2) '); writeln('4/44: DataIncrementaPeriodo(D1/2, PP)'); writeln('5/55: DataDecrementaPeriodo(D1/2, PP)'); writeln; writeln(' 6: DateDistanza(D1, D2)'); writeln(' 7: DateConfronta(D1, D2) '); writeln(' 10: DataDay(D1)'); writeln; writeln(' 81: GG=', GG, ' 82: MM=', MM, ' 83: AA=', AA, ' 84: PP=', PP); writeln; write ('--> '); readln(SCELTA);
 case SCELTA of 1: DataInit(D1, GG, MM, AA, EE); 11: DataInit(D2, GG, MM, AA, EE); 2: DataLeggi(D1); 22: DataLeggi(D2); 3: DataScrivi(D1); 33: DataScrivi(D2); 4: DataInc(D1, PP); 44: DataInc(D2, PP); 5: DataDec(D1, PP); 55: DataDec(D2, PP); 6: write(DateLen(D1, D2)); 7: write(DateComp(D1, D2));
 10: case DataDay(D1) of 0: write('Domenica'); 1: write('Lunedì'); 2: write('Martedì'); 3: write('Mercoledì'); 4: write('Giovedì'); 5: write('Venerdì'); 6: write('Sabato'); else write('Boh!'); end;
 81: readln(GG); 82: readln(MM); 83: readln(AA); 84: readln(PP); end;
 gotoxy(25, 25); write('Invio...'); readln;Until(SCELTA = 0);
End.