Bài 1:

program bai1;

var

         a,b:integer;

begin

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

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

         writeln('Chu vi hinh chu nhat la: ',(a+b)*2);

         write('Dien tich hinh chu nhat la: ',a*b);

        readln;

end.

Bài 2:

program bai2;

var

        a,b,c:integer;

begin

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

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

      write('A=',a,' va B=',b);

      readln;

end.

Bài 3:

program bai3;

var

       a,b:integer;

begin

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

       write('Ket qua la:',a/b:5:1);

        readln;

end.

Bài 4:

Program bai4;

var

       a:integer;

begin

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

     if a mod 2=0 then write(a,' la so chan') else write(a,' la so le');

     readln;

end.

Bài 5:

program bai5;

var

         a,b:integer;

begin

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

         if a>b then write(a,' lon hon ',b) else

         if a=b then write(a,' bang ',b) else

        if a<b then write(a,' be hon ',b);

       readln;

end. 

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

Program Bai1;

USES CRT;

Var a,b:real;

Begin 

Clrscr;

Write('Nhap chieu dai hinh chu nhat:'); Readln(a);

Write('Nhap chieu rong hinh chu nhat:'); Readln(b);

Writeln('Dien tich hinh chu nhat:', a*b);

Writeln('Chu vi hinh chu nhat:', (a+b)*2);

Readln;

End.

Program Bai2;

USES CRT;

Var a,b,c:integer;

Begin 

Clrscr;

Write('Nhap so nguyen a:'); Readln(a);

Write('Nhap so nguyen b:'); Readln(b);

Writeln('Gia tri hai bien:',a:6,b:6 );

c:=a;

a:=b;

b:=c;

Writeln('Hoan doi a b:', a:6,b:6);

Readln;

End.

Program Bai3;

USES CRT;

Var a,b:integer;

Begin 

Clrscr;

Write('Nhap so nguyen a:'); Readln(a);

Write('Nhap so nguyen b:'); Readln(b);

Writeln('Thuong cua a,b:',a/b:6:1);

Readln;

End.

Program Bai4;

USES CRT;

Var a:integer;

Begin 

Clrscr;

Write('Nhap so nguyen a:'); Readln(a);

IF a mod 2=0 then write(a,'la so chan');

IF a mod 2<>0 then write(a,'la so le');

Readln;

End.

Program Bai5;

USES CRT;

Var a,b:integer;

Begin 

Clrscr;

Write('Nhap so nguyen a:'); Readln(a);

Write('Nhap so nguyen b:'); Readln(b);

IF a >b then write('Gia tri a lon hon gia tri b');

IF a <b then write('Gia tri a nho hon gia tri b');

IF a =b then write('Gia tri a bang gia tri b');

Readln;

End.