program tu_giac;

uses crt;

var a,b:integer;

begin

write(' nhap vao  canh thu nhat cua tu giac co 4 goc vuong'); read(a);

write(' nhap vao  canh thu hai ke voi canh thu nhat cua tu giac'); read(b);

if a=b then write(' do la hinh vuong') else write( ' do la hinh chu nhat');

readln

end.

* Mô tả thuật toán :

- Bước 1 : nhập hai cạnh liên tiếp a và b

- Bước 2 : 

- Bước 2.1 : nếu a = b thì thông báo tứ giác là hình vuông

- Bước 2.2 : nếu a <> b thì thông báo tứ giác là hình chữ nhật

- Bước 3 : kết thúc

* Viết chương trình :

uses crt;

var a, b : integer;

begin

clrscr;

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

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

if a = b then writeln('tu giac la hinh vuong');

if a <> b then writeln('tu giac la hinh chu nhat');

readln

end.