ai giỏi tin thì viết dùm mình 1 chương trình pascal về tính chu vi, diện tích hình chữ nhật dùng lệnh if then và else vs

Program Tinh_Chu_Vi_Dien_Tich_HV

var a,s,c:longint;

begin

write(‘Nhap vao do dai canh hinh vuong: ’)

read(a);

if a>0 then

begin

c:=4*a;

s:=a*a;

writeln(‘Chu vi hinh vuong co canh dai ’ ,a, ‘la: ’,c);

writeln(‘Dien tich hinh vuong co canh dai ’ ,a, ‘la: ’,s)

end

else

write(Du lieu sai, khong the thuc hien duoc! ’);

readln

end.

cho 5 sao

program Tinh_Chu_Vi_Dien_Tich_HV

var a,s,c:longint;

begin

write(‘Nhap vao do dai canh hinh vuong: ’)

read(a);

if a>0 then

begin

c:=4*a;

s:=a*a;

writeln(‘Chu vi hinh vuong co canh dai ’ ,a, ‘la: ’,c);

writeln(‘Dien tich hinh vuong co canh dai ’ ,a, ‘la: ’,s)

end

else

write(Du lieu sai, khong the thuc hien duoc! ’);

readln

end.