uses crt; Var n:byte; begin clrscr; write('Nhap thu can dich: '); readln(n); case n of 2: Write('Thu ',n,'Dich sang tieng Anh la: Monday'); 3: Write('Thu ',n,'Dich sang tieng Anh la: Tuesday'); 4: Write('Thu ',n,'Dich sang tieng Anh la: Wednesday'); 5: Write('Thu ',n,'Dich sang tieng Anh la: Thursday'); 6: Write('Thu ',n,'Dich sang tieng Anh la: Friday'); 7: Write('Thu ',n,'Dich sang tieng Anh la: Saturday'); 8: Write('Thu ',n,'Dich sang tieng Anh la: Sunday'); else Write('Thu nay ko hop le'); end; readln end.

program ctpt;

uses crt;

  var tuan: integer;

begin

            clrscr;

            write('Nhap bat ki 1 thu trong tuan: '); readln(thu);

            case thu of

                     2 : write('Thu hai - Monday');

                     3 : write('Thu ba - Tuesday');

                     4 : write('Thu tu - Wednesday');

                     5 : write('Thu nam - Thursday');

                     6 : write('Thu sau - Friday');

                     7 : write('Thu bay - Saturday');

                     8 : write('Chu nhat - Sunday');

                     else write('Nhap sai!');

            end;

            readln

end.