TANGGALAN

uses wincrt;
var
a,b,c,d,hr,bln,th:integer;
t,bl,thn:longint;
begin
write('Masukkan sembarang tanggal: ');read(a);read(b);readln(c);
write('Masukkan sembarang hari: ');readln(d);
th:=d div 360;
bln:=(d mod 360) div 30;
hr:=d mod 30;
writeln(d,'hr= ',th,'tahun',bln,'bulan',hr,'hari');
t :=a+hr;
bl:=b+bln;
thn:=c+th;
if t>30 then
begin
t:=(a+hr) mod 30;
bl:=((a+hr) div 30) + (b+bln);
end;
if bl>12 then
begin
bl:=(((a+hr) div 30) + (b+bln)) mod 12;
thn:=((b+bln) div 12) + (c+th);
end;
writeln('Jadi',d,'hari lagi tanggal',t,' ',bl,' ',thn);
end.