ClubPoker-DNA

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,'hari = ',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.