program dateinput;
type
    date = record
        ngay: integer;
        thang: integer;
        nam: integer;
            end;
    
    

var
    input : date;
    check : boolean;
begin
    write('Ngay: ');
    readln(input.ngay);
    write('Thang: ');
    readln(input.thang);
    write('Nam: ');
    readln(input.nam);
    
    (*In ra ngay thang nam*)
    {
        Default tháng = 30 ngày
    }
    
    if (input.ngay - 1 <= 0) then 
    begin
        input.ngay := 30;
        check := True;
    end
    else input.ngay := input.ngay - 1;
    
    if (check = True) then begin
        input.thang := input.thang - 1;
        check := False;
    end;
    
    if (input.thang <= 0) then begin
        input.nam := input.nam - 1;
        input.thang := 12;
    end;
    
    if (input.nam > 0) then begin
        write('Ngay ', input.ngay, ' Thang ', input.thang, ' Nam ', input.nam);
    end
    else
        write('khong hop le');
end.