uses crt;

var a, b, s : integer;

begin

clrscr;

write('nhap do dai canh a :');readln(a);

write('nhap do dai canh b :');readln(b);

if a = b then 

begin

writeln('dien tich hinh vuong la :', a * b);

writeln('chu vi hinh vuong la :', a * 4);

end;

if a <> b then 

begin

writeln('dien tich hinh chu nhat la :', a * b);

writeln('chu vi hinh chu nhat la :', (a + b)*2);

end;

readln

end.

uses crt;

var a,b,cv,s:integer;

begin

clrscr;

write('nhap a: ');readln(a);

write('nhap b: ');readln(b);

cv:=(a+b)*2;

s:=a*b;

if (a = b) then

begin

write('a va b la canh cua hinh vuong');

write('chu vi hinh vuong la: ',cv);

write('dien tich hinh vuong la: ',s);

end

else

begin

write('a va b la canh cua hinh chu nhat');

write('chu vi hinh vuong la: ',cv);

write('dien tich hinh vuong la: ',s);

end;

readln;

end.