program hinhchunhat;

uses crt;
var a, b, s, c: real;
begin

clrscr;
write('chieu dai hinh chu nhat la :');readln(a);
write('chieu rong cua hinh chu nhat la :');readln(b);

if (a > 0) and (b > 0) then

begin
s := a*b;
c :=(a+b)*2;
writeln('dien tich hinh chu nhat la :', s:8:2);
writeln('chu vi hinh chu nhat la :', c:8:2);

end

else writeln(a:8:2,' va ', b:8:2 ,' khong phai la canh hinh chu nhat ');
readln
end.

uses crt;

var a,b:comp;

begin

clrscr;

readln(a,b);

if (a>0) and (b>0) then

begin

write('s',(a*b):5:2);

write('cv',((a+b)*2):5:2)

else

write('khong la 2 canh cua hinh cua nhat');

readln;

end.