Bài 1:

Program dien_tich;
Uses crt;
Var a, b, S, cv : real;
Begin
Clrscr;
Write('Nhap do dai canh a :');readln(a);
Write('Nhap do dai canh b :');readln(b);
cv := (a+b)*2;
S := a*b;
Writeln('Chu vi hinh chu nhat  la :', cv:8:2);
Writeln('Dien tich hinh chu nhat  la :', S:8:2);
Readln
End.

Bài 2:

Program Hinh_tron;
Uses crt;
Var r, cv, dt : real;
Begin
Clrscr;
Write ('Nhap ban kinh hinh tron: ');
Readln (r);
cv := 2*pi*r;
dt := r*r*pi;
Writeln('Chu vi hinh tron la : ', cv);
Writeln('Dien tich hinh tron la :', dt);
Readln
End.

Bài 3:

program tinh;

uses crt;

var a, b, x, c : integer;

begin

clrscr;

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

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

write('nhap so x :');readln(x);

write('nhap so c :');readln(c);

writeln(sqr(2+1) - (5+2)/(7+3));

writeln(sqrt(2+3) + (2/5)*(6+2));

writeln((sqr(a) + b)*(1+c*c*c));

writeln( (5+a)/b - sqr(a)*x + b*x+ c);

writeln(5*5 - 6 div 2 + 5 mod 3);

readln

end.

Bài 1:

uses crt;
var a,b:integer;
begin
clrscr;
   write('Nhap chieu dai, chieu rong: ');readln(a,b);
   writeln('Chu vi: ',(a+b)*2);
   writeln('Dien tich: ',a*b);
readln
end.

Bài 2:

uses crt;
var r:integer;
begin
clrscr;
   write('Nhap ban kinh r: ');readln(r);
   writeln('Chu vi: ',r*2*pi:0:3);
   writeln('Dien tich: ',r*r*pi:0:3);
readln
end.

Bài 3:

uses crt;
var a,b,c,x:integer;
begin
clrscr;
   write('Nhap a,b,c: ');readln(a,b,c);
   write('Nhap x: ');readln(x);
   writeln('1. ',sqr(2+1)-(5+2)/(7+3):0:2);
   writeln('2. ',sqrt(2+3)+2/5*(6+2):0:2);
   writeln('3. ',(a*a+b)*sqr(1+c)*(1+c));
   writeln('4. ',(5+a)/b-a*a*x+b*x+c:0:2);
   writeln('5. ',a*a-6 div 2+5 mod 3);
readln
end.