Câu 1:

     Propram Cv_chu_nhat;

     Uses crt;

     Var a, b : integer;

             CV : real;

Begin

    Clrscr;

    Write ( 'Nhap do dai cho canh a la:' );

    Readln (a);

    Write ( 'Nhap do dai cho canh b la:' );

    Readln (b);

    CV : = ( a + b ) * 2;

    Writeln ( 'Chu vi hinh chu nhat:',CV );

    Readln

End.

* Xin lỗi bạn nha! Mình không biết làm câu 2. hihi! Làm bạn thất vọng rồi.

          

Bài1

Program Cv_chu_nhat;

Uses crt;

Var a,b: integer;

CV:real; 

Begin

  Writeln('nhap do dai cho canh a la');

  Readln(a);

  Writeln('nhap do dau cho canh b');

  Readln(b);

  CV:=(a+b)*2;

  Writeln('chu vi hinh chu nhat', CV);

  Readln;

End.

Bài 2

Program tinh;

Uses crt;

Var s:Integer;

Begin 

  Clrscr;

  s:=1+2+3+4+5+6+7+8+9+10;

  Writeln('Gia tri bieu thuc s la :',s);

  Readln;

End.