viết trương trình nhập vào hai kích thước của một hình chữ nhật, hiển thị ra đó là hình gì:hình vuông-hình chữ nhật
2 câu trả lời
var a,b:longint;
begin
repeat
read(a,b);
until (a>=0) and (b>=0);
if a=b then write('hv')
else write('hcn');
readln;
readln;
end.