viết thuật toán(bằng liệt kê hoặc sơ đồ khối ) a, tính chu vi và diện tích hình chữ nhật biết chiều dài a và chiều rộng b (a,b được nhập từ bàn phím ) b, tính bình phương của 1 số nguyên dương x

a)

var a,b:longint;

begin

write('Nhap chieu dai: '); readln(a);

write('Nhap chieu ong '); readln(b);

writeln('Chu vi la: ',2*(a+b));

write('Dien tich la: ',a*b);

readln

end.

b)

var x:longint;

begin

write('Nhap x: '); readln(x);

write('BInh phuong cua x la: ',x*x);

readln

end.

a)

var a,b:integer;

begin

write('Nhap chieu dai: '); readln(a);

write('Nhap chieu rong '); readln(b);

writeln('Chu vi : ',(a+b)*2);

write('Dien tich : ',a*b);

readln;

end.

b)

var x:integer;

begin

write('Nhap x: '); readln(x);

write('BInh phuong cua x la: ',x*x);

readln;

end.