... WRITELN('CHU VI LA: ',P:0:5); WRITELN('DIEN TICH LA: ',S:0:5); READLN; END Bài 4: Đọc ngày, tháng, năm sau viết hình ngày thứ tuần Chương trình: PROGRAM BAI_4; VAR THU,NGAY,THANG:BYTE; NAM,LUU:INTEGER; ... WRITE('NHAP NAM: '); READLN(NAM); LUU:=NAM; NAM:=1900 + (NAM MOD 1900); IF THANG < THEN BEGIN Môn: Tin học Giáo viên: Nguyễn Văn Thường THANG:=THANG + 12; NAM:=NAM - 1; END; THU:=ABS(NGAY + 2*THANG ... WRITELN('NGAY:',NGAY:3,',THANG:',THANG:3,',NAM:',LUU:5); WRITELN(' LA NGAY THU BAY'); END; END; WRITELN; READLN; END Môn: Tin học ...