Cho bài toán: viết chương trình tính chu vi (CV) và diện tích (S) của hình chữ nhật, biết chiều dài a = 12, chiều rộng b = 8.
• Hãy khai báo các biến cần dùng trong chương trình?
• Viết lệnh gán chiều dài, chiều rộng, tính chu vi, diện tích hình chữ nhật?
program baitap; uses crt; var cv,s,a,b:integer; begin clrscr; a := 12; b := 8; cv := (a+b)*2; s := a*b; writeln('Chu vi HCN = ',cv); writeln('Dien tich HCN = ',s); readln; end.