Câu A:

Giải: 

program Hinh_chu_nhat;
uses crt;
var a, b, S, P: integer;
begin
clrscr;
writeln('Nhap chieu dai hinh chu nhat: ');
readln(a);
writeln('Nhap chieu rong hinh chu nhat: ');
readln(b);
P:= ((a+b)*2);
S:=a*b;
writeln('Chu vi hinh chu nhat la: ',P);
writeln('Dien tich hinh chu nhat la: ',S);
readln;
end.

Câu B: (3 số)

Giải:

program Tong_Tich;
uses crt;
var a, b, c: integer;
begin
clrscr;
write('Nhap a= ');
readln(a);
write('moi nhap b= ');
readln(b);
write('moi nhap c= ');
readln(c);
writeln('tong ba so = ',a+b+c):
write('tich ba so = ',a*b*c);
readln;
end.

Câu B: (2 số)

Giải:

program Tong_Tich;
uses crt;
var a, b: integer;
begin
clrscr;
write('Nhap a= ');
readln(a);
write('moi nhap b= ');
readln(b);
writeln('tong ba so = ',a+b):
write('tich ba so = ',a*b);
readln;
end.

Câu C:

Giải:

program CauC;
uses crt;
var a: integer;
begin
clrscr;
write('Nhap vao mot so a= '); 
readln(a);
if a>0 then write('So a la so nguyen duong');
if a<0 then write('So a la so nguyen am');
If a=0 then write('So a khong la so nguyen am va khong la so nguyen duong');

if a mod 2=0 then write('So a la so chan') else write('So a la so le');
readln;
end.

Câu D:

Giải:

Program CauD;

uses crt;

var a, b: integer;

begin

clrscr;

write('Nhap so a: ');

readln(a);

write('Nhap so b: ');

readln(b);

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

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

readln;

end.