1)

program tinh;
uses crt;
begin
    clrscr;
    writeln('a) 21 x 4 + 36 - 15 = ',21*4+36-15);
    writeln('b) (15 + 5)^2 - 25/(5 + 2) = ',(15+5)*(15+5)-25/(5+2):2:2);
    writeln('c) 16 x 4 - 28 + 17 = ',16*4-28+17);
    writeln('d) (22 + 7)^3/(5+2) = ',(22 + 7)*(22 + 7)*(22 + 7)/(5+2):2:2);
    readln
End.

2)

program tinh;
uses crt;
begin
    clrscr;
    writeln('21 chia 5 lay phan du: ',21 mod 5);
    writeln('21 chia 5 lay phan nguyen: ',21 div 5);
    readln
End.

Câu 1 :

program A01;

uses crt;

begin

clrscr;

writeln('Bieu thuc a = ', 21 * 4 + 36 - 15);

writeln('Bieu thuc b = ', (15 + 5) * (15 + 5) - 25 / (5 + 2) : 2 : 2);

writeln('Bieu thuc c = ', 16 * 4 - 28 + 17);

writeln('Bieu thuc d = ', (22 + 7) * (22 + 7) * (22 + 7) / (5 + 2) : 2 : 2);

readln

end.

Câu 2 :

program A01;

uses crt;

begin

clrscr;

writeln('21 div 5 = ', 21 div 5);

writeln('21 mod 5 = ', 21 mod 5);

readln

end.