câu 6:

uses crt;

var x: byte;

      t: string;

begin

clrscr;

write ('nhap x (1<x<9): ');  readln (x);

if x=2 then t:='thu hai';

if x=3 then t:='thu ba';

if x=4 then t:='thu tu';

if x=5 then t:='thu nam';

if x=6 then t:='thu sau';

if x=7 then t:='thu bay';

if x=8 then t:='chu nhat';

if (x<>2) and (x<>3) and (x<>4) and (x<>5) and (x<>6) and (x<>7) and (x<>8) then

begin

writeln ('ban da nhap khong hop le');

readln;

exit;

end;

writeln (t);

readln;

end.

câu 7:

uses crt;

var a,b: integer;

begin

clrscr;

write ('nhap a: ');  readln (a);

write ('nhap b: ');  readln (b);

writeln ('tong la: ',a+b);

writeln ('hieu la: ',a-b);

writeln ('tich la: ',a*b);

writeln ('thuong la: ',a/b:1:2);

readln;

end.