Câu 1:

Program NN;
Uses crt;
Var a,p: real;
Begin
        Clrscr;
        Write('Nhap do dai canh: '); Readln(a);
        p:=sqr(a);
        Write('Chu vi = ',p:0:2);
        Readln
End.

Câu 2:

Program NN;
Uses crt;
Var ngay: byte;
Begin
        Clrscr;
        Write('Nhap ngay: '); Readln(ngay);
        If ngay>31 then Write('KHONG HOP LE')
        Else
        Begin
                If ngay mod 2 = 0 then Write('Chan')
                Else Write('Le');
        End;
        Readln
End.

Câu 3:

Program NN;
Uses crt;
Var a,b,p,s: real;
Begin
        Clrscr;
        Write('Nhap chieu dai va chieu rong: '); Readln(a,b);
        p:=(a+b)*2;
        s:=a*b;
        Writeln('Dien tich = ',s:0:2);
        Write('Chu vi = ',p:0:2);
        Readln
End.

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.