(Bạn thông cảm, do đề không nói rõ nên mình cho các biến a, b đều là kiểu số thực để phòng a, b là STP)

Câu a:

program Tinh_toan;

uses crt;

var a, b: real;

Begin

   clrscr;

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

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

   writeln('a + b = ', a+b:0:2);

   writeln('a - b = ', a-b:0:2);

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

   writeln('a / b = ', a/b:0:2);

   readln;

End.

Câu b:

program So_sanh;

uses crt;

var a, b: real;

Begin

   clrscr;

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

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

   if (a>b) then writeln('a lon hon b')

      else if (a=b) then writeln('a bang b')

         else writeln('a be hon b');

   readln;

End.

Câu 1 :

uses crt;

var a, b : integer;

begin

clrscr;

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

writeln('Tong hai so = ', a + b);

writeln('Hieu hai so = ', a - b);

writeln('Tich hai so = ', a * b);

writeln('Thuong hai so = ', a /b : 2 : 1);

readln

end.

Câu 2 :

uses crt;

var a, b : integer;

begin

clrscr;

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

if a > b then write('a > b');

if a < b then write('a < b');

if a = b then write('a = b');

readln

end.