(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.