hãy viêt chương trình pascal tính chu vi và diện tích hình chữ nhật biết chiều dài và chiều rộng là 2 số nguyên a,b nhập từ bàn phim

2 câu trả lời

Program baitap;

Uses crt;

Var a,b:real;

Begin

Write('Nhap a va b:');

Readln(a,b);

Writeln('Chu vi cua hinh chu nhat:',(a+b)*2);

Writeln('Dien tich cua hinh chu nhat:',a*b);

Readln;

End.

var a, b, s, p: longint;
begin
    readln(a, b);
    s := a * b;
    p := (a + b) * 2;
    writeln('Diện tích hình chữ nhật: ', s);
    writeln('Chu vi hình chữ nhật: ', p);
end.