I

1.

uses crt;

begin

clrscr;

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

writeln ('dien tich la: ',10*6.5:1:2);

readln;

end.

2.

uses crt;

begin

clrscr;

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

writeln ('dien tich la: ',5*5*Pi:1:2);

readln;

end.

3.

uses crt;

begin

clrscr;

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

readln;

end.

II

uses crt;

var a,b: integer;

begin

clrscr;

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

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

write ('tong la: ',a+b);

readln;

end.

2

uses crt;

var a,b: integer;

begin

clrscr;

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

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

write ('tong la: ',a-b);

readln;

end.

3

uses crt;

var a,b: integer;

begin

clrscr;

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

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

write ('tong la: ',a*b);

readln;

end.

4.

uses crt;

var a,b: integer;

begin

clrscr;

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

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

write ('tong la: ',a/b);

readln;

end.

Câu 1 

uses crt;

var a, b : real;

begin

clrscr;

a := 10; b := 6.5;

writeln('Chu vi = ', (a + b) * 2 : 2 : 2);

writeln('Dien tich = ', a * b : 2 : 2);

readln

end.

Câu 2 :

uses crt;

var r : real;

begin

clrscr;

r := 5;

writeln('Chu vi = ', 2 * r * 3.14: 2 : 2);

writeln('Dien tich = ', r * r * 3.14 : 2 : 2);

readln

end.

Câu 3 :

uses crt;

var a, b, h : byte;

begin

clrscr;

a := 8; b := 5; h := 4;

writeln('Dien tich = ', (a + b) * h);

readln

end. 

Câu 1 :

uses crt;

var a, b : integer;

begin

clrscr;

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

write('Tong hai so : ', a + b);

readln

end.

Câu 2 :

uses crt;

var a, b : integer;

begin

clrscr;

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

write('Hieu hai so : ', a - b);

readln

end.

Câu 3 :

uses crt;

var a, b : integer;

begin

clrscr;

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

write('Tich hai so : ', a * b);

readln

end.

Câu 4 :

uses crt;

var a, b : integer;

begin

clrscr;

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

write('Thuong hai so : ', a/ b : 2 : 2);

readln

end.