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.

Bạn xem trong ảnh