Program Usia

uses wincrt;
var n,x,y,z,H,I,J,K:integer;
begin
write ('masukkan tanggal lahir ');readln (x);
write ('masukkan bulan lahir ');readln(y);
write ('masukkan tahun lahir ');readln (z);
write ('masukkan jumlah hari ');readln (n);
H:= n div 365;
I:= n mod 365;
J:= I div 30;
K:= I mod 30;
write ('usia sekarang adalah= ',H,'tahun ',J,'bulan ',K,'hari ');
end.