2/

Program BTH;

uses crt;

Begin

clrscr;

Writeln('    PHONG GD-DT DINH QUAN   ');

Writeln('TRUONG THCS NGO THOI NHIEM ');

readln;

end. 

3/

Program BTH;

uses crt;

var a,b,c:integer;

Begin

clrscr;

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

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

c:=a+b;

writeln('Tong hai so tren la: ',c);

readln;

end.

4/

Program BTH;
Uses crt;
var a,b,c:real;
begin
clrscr;
write('Nhap ban kinh hinh tron: ');readln(a);
b:=a*2*pi;
c:=sqr(a)*pi;
writeln('Chu vi hinh tron la: ',b:4:2);
writeln('Dien tich hinh tron la: ',c:4:2);
readln;
end.

5/

Program BTH;

uses crt;

var a,b:integer;

Begin

clrscr;

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

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

If a>b then writeln(a,' lon hon ',b) else writeln (b,' lon hon ',a);

readln;

end.

6/

Program BTH;

uses crt;

var a:integer;

Begin

clrscr;

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

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

readln;

end.

8/

Program sualoi;

Var a,b: integer;

Begin;

Write( nhap so thu nhat: ); readln(‘a’);

Write( nhap so thu hai: ); readln(‘b’);

Write( ‘tong cua hai so la:’, a-b );

Real

End;

Chỗ sai in đậm

Sửa lại

Program sualoi;

Var a,b: integer;

Begin

Write( nhap so thu nhat: ); readln(a);

Write( nhap so thu hai: ); readln(b);

Write( ‘tong cua hai so la:’, a+b );

Readln;

End.

Bài 2: Còn mấy cái progam tự điền nhé ^^

Begin

       Writeln( ‘ Phong Giao Duc Va Dao Tao’);

       Writeln(‘ Truong THCS Vo Thi Sau’);

       Writeln(‘ Em Ten La:...........’);

Readln;

End. 

Bài 3:

Uses crt;

   Var a,b:integer;

 Begin

    clrscr;

  Writeln('Nhap so a  ');

Readln(a);

  Writeln('Nhap so b ');

 Readln(b);

 Writeln('Tong hai so a va b la  ',a+b);

  Readln;

 end.

Bài 4:

 program hinhtron;

   var r:real;

  const pi=3.14;

   begin

         clrscr;

    Write('Nhap ban kinh:');

 readln(r);

        Writeln('Chu vi hinh tron la:',2*pi*r);

    Writeln('Dien tich hinh tron la:',pi*r*r);

  readln

      end.