program untuk tgl besok, jika yg d input tgl hr ini

program hitung_tanggal;
Uses wincrt;
Var
TglSkrg,BlnSkrg,ThnSkrg,TglBsk,BlnBsk,ThnBsk : Integer;
Lagi : char;
Begin
Lagi:= 'Y';
While (Lagi='Y') or (Lagi='y') do
Begin
Clrscr;
Repeat
Write(' Tanggal Hari ini : '); Readln(TglSkrg);
Until TglSkrg > 0;
Write(' Bulan Hari ini : '); Readln(BlnSkrg);
Write(' Tahun Hari ini : '); Readln(ThnSkrg);

If ((TglSkrg<=30) And ((BlnSkrg=1) Or (BlnSkrg=3) Or (BlnSkrg=5) Or (BlnSkrg=7) Or (BlnSkrg=8)
Or (BlnSkrg=10) Or (BlnSkrg=12)))
Or ((TglSkrg<=29) And ((BlnSkrg=4) Or (BlnSkrg=6) Or (BlnSkrg=9) Or (BlnSkrg=11)))
Or ((TglSkrg<=27) And (BlnSkrg=2)) Then
Begin
TglBsk:=TglSkrg+1;
BlnBsk:=BlnSkrg;
ThnBsk:=ThnSkrg;
Writeln; Writeln;
Write(' Tanggal Sekarang : ',TglSkrg,'-',BlnSkrg,'-',ThnSkrg);
Writeln;
Write(' Tanggal Besok : ',TglBsk,'-',BlnBsk,'-',ThnBsk);
End
Else
If ((TglSkrg=31) And ((BlnSkrg=1) Or (BlnSkrg=3) Or(BlnSkrg=5) Or (BlnSkrg=7) Or (BlnSkrg=8)
Or (BlnSkrg=10)))
Or ((TglSkrg=30) And ((BlnSkrg=4) Or (BlnSkrg=6) Or (BlnSkrg=9) Or (BlnSkrg=11))
Or ((TglSkrg=28) And (BlnSkrg=2))) Then
Begin
TglBsk:=1;
BlnBsk:=BlnSkrg+1;
ThnBsk:=ThnSkrg;
Writeln; Writeln;
Write(' Tanggal Sekarang : ',TglSkrg,'-',BlnSkrg,'-',ThnSkrg);
Writeln;
Write(' Tanggal Besok : ',TglBsk,'-',BlnBsk,'-',ThnBsk);
End
Else
If (TglSkrg=31) And (BlnSkrg=12) Then
Begin
TglBsk:=1;
BlnBsk:=1;
ThnBsk:=ThnSkrg+1;
Writeln; Writeln;
Write(' Tanggal Sekarang : ',TglSkrg,'-',BlnSkrg,'-',ThnSkrg);
Writeln;
Write(' Tanggal Besok : ',TglBsk,'-',BlnBsk,'-',ThnBsk);
End
Else
Begin
Writeln; writeln;
Write(' Tanggal yang diinputkan salah');
End;

writeln; writeln;
Write ('Akan proses lagi [Y/T] ? '); Readln(Lagi);
End;
End.