Câu 1 :
uses crt;
var a : integer;
begin
clrscr;
write('Nhap canh hinh vuong : '); readln(a);
write('Chu vi hinh vuong = ', a * a);
readln
end.
Câu 2 :
uses crt;
var a : integer;
begin
clrscr;
write('Nhap ngay sinh : '); readln(a);
if a mod 2 = 0 then write(a,' la ngay sinh chan')
else write(a,' la ngay sinh le');
readln
end.
Câu 3 :
uses crt;
var a, b : integer;
begin
clrscr;
write('Nhap chieu dai va rong : '); readln(a, b);
writeln('Chu vi = ', (a + b) * 2);
writeln('Dien tich = ', a * b);
readln
end.
