Câu 6:

Program dien_tich_hinh_thang;

Var

        a,b,h:integer;

Begin

         write('Nhap hai day va duong cao: '); readln(a,b,h);

         write('Dien tich hinh thang la: ',(a+b)*h/2);

         Readln;

End.

Câu 7:

Program hoan_doi;

Var

       A,b,c:integer;

Begin

      write('Nhap hai so: '); readln(a,b);

      C:=a; a:=b; b:=c;

      write('Gia tri sau khi hoan doi la: a=',a,' va b=',b);

       Readln;

End.

Câu 8:

Program binh_phuong;

Var

        N:integer;

Begin

       write('Nhap n: '); readln(n);

       write('Ket qua la: ',n*n);

       readln;

End.

Câu 9:

program tong;

Var

     A,b:integer;

Begin

     write('Nhap hai so: '); readln(a,b);

      write('Tong la: ',a+b);

      Readln;

End.

Câu 10:

Program dien_tich;

Var

       A:integer;

Begin

      write('Nhap canh: '); readln(a);

      write('Dien tich la: ',a*a*(sqrt(3)/2):5:2);

      Readln;

End.

          Chúc bạn học tốt!