Câu 1:

Program bai1;

Uses crt;

Begin

Clrscr;

Writeln('Chu vi HCN:', 2*(10+6.5));

Writeln('Dien tich HCN:',10*6.5);

Readln

End.

Câu 2:

Program bai2;

Uses crt;

Begin

Clrscr;

Writeln('Chu vi hình tròn:', 5*2*3.14:5:2);

Writeln('Dien tich HCN:',5*5*3.14:5:2);

Readln

End.

Câu 3:

Program bai3;

Uses crt;

Begin

Clrscr;

Writeln('Dien tich hinh thang:', (8+5)/2*4);

Readln

End.

Bài 1:

program bai1;

Begin

        writeln('Chu vi la: ',(10+6.5)*2:5:1);

        write('Dien tich la: ',10*6.5:5:1);

        Readln;

End.

Bài 2: 

program bai2;

begin

         writeln('chu vi la: ',5*2*3.14:5:1);

        write('Dien tich la: ',5*5*3.14:5:1);

        Readln;

End.

Bài 3: 

program bai3;

begin

        write('Dien tich la: ',(8+5)*4/2:5:1);

        Readln;

End.

       #HN

       #Chuc_em_hoc_tot