Bài 1:

program bai1;

uses crt;

Var

        x,y,CV:integer;

Begin

        clrscr;

         write('Nhap chieu rong: '); readln(x);

         write('Nhap chieu dai: '); readln(y);

         CV:=(x+y)*2;

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

         Readln;

End.

Bài 2:

Program bai2;

Uses crt;

Var

       M,q:integer;

Begin

       Clrscr;

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

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

       write('M= ',m);

       write('Q= ',q);

       Readln;

End.

Bài 3:

program bai3;

Uses crt;

Var

          A,b:integer; TB:real;

Begin

          Clrscr;

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

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

          TB:=(a+b)/2;

           write('Trung bing cong la: ',TB);

           Readln;

End.

#Chuc_em_hoc_tot

Bài 1:

Program chuvi;
Uses crt;
Var x, y,  cv : real;
Begin
Clrscr;
Write('Nhap do dai canh x :');readln(x);
Write('Nhap do dai canh y :');readln(y);
cv := (x+y)*2;
Writeln('Chu vi hinh chu nhat  la :', cv:8:2);
Readln
End.

Bài 2:

program bb;
uses crt;
var m, q :integer;
begin
clrscr;
write('nhap gia tri m :');readln(m);
write('nhap gia tri q:');readln(q);
writeln('gia tri cua m la :', m);
writeln('gia tri cua q la :', q);
readln
end.

Bài 3:

program bb;
uses crt;
var a, b :integer;
begin
clrscr;
write('nhap gia tri a :');readln(a);
write('nhap gia tri b:');readln(b;
writeln('gia tri trung binh cua hai so la :', (a+b)/2;
readln
end.