Bài 1:

Uses crt;

Var a, b, t, h: integer;

Begin

     Clrscr;

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

     Write('Nhap b = '); readln(b);

     t:=a+b;

     h:=a-b;

     Writeln('Tong = ',t);

     Writeln('Hieu = ',h);

Readln

End.

Bài 2:

Uses crt;

Var a, b, t, tg: real;

Begin

     Clrscr;

     Write('Nhap so a = '); readln(a);

     Write('Nhap so b = '); readln(b);

     t:=a*b;

     tg:=a/b;

     Writeln('Tich = ',t:5:2);

     Writeln('Thuong = ',tg:5:2);

Readln

End.

Bài 3:

Uses crt;

Var p, s, r: integer;

Const pi=3.14;

Begin

     Clrscr;

     Write('Nhap ban kinh r = '); readln(r);

     p:=pi*2*r;

     s:=sqr(r)*pi;

     Writeln('Chu vi = ',p:4:2);

     Writeln('Dien tich = ',s:4:2);

Readln

End.

Bài 4:

Uses crt;

Var a, b, s, p: real;

Begin

     Clrscr;

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

     Write('Nhap b = '); readln(b);

     s:=a*b;

     p:=(a+b)*2;

     Writeln('Chu vi = ',p:4:2);

     Writeln('Dien tich = ',s:4:2);

Readln

End.

Bài 5:

Uses crt;

Var x, y, z, s, p: real;

Begin

     Clrscr;

     Write('Nhap x = '); readln(x);

     Write('Nhap y = '); readln(y);

     Write('Nhap z = '); readln(z);

     p:=(a+b+c)/2;

     s:=sqrt(p*(p-x)*(p-y)*(p-z));

     Writeln('Dien tich = ',s:8:2);

     Writeln('Chu vi = ',p:8:2);

Readln

End.