Giải nè:
======================================================
Program THI_HK_1;
Uses crt;
Var a,b: Integer;
P,S: Real;
Begin
Clrscr;
Write('Nhap vao so a = '); Readln(a);
Write('Nhap vao so b = '); Readln(b);
P:=(a+b)*2;
S:=a*b;
If a = b then writeln(' Tu giac da cho la hinh vuong! ')
Else writeln(' Tu giac da cho la hinh chu nhat! ');
Write('Chu vi: ',P:4:2,' va dien tich: ',S:4:2);
Readln;
End.
==========================================================