cau 1
cu phap :
for(bien dem) :=(gia tri dau)to(gia tri cuoi)do(cau lenh);
trong do for ,to ,do la cac tu khoa ,bien dem la bien kieu nguyen , gia tri dau va gia tri cuoi la cac gia tri nguyen
cau lenh lap se thuc hien cau lenh nhieu lan , moi lan la 1 vong lap . so vong lap biet truoc va bang gia tri cuoi -gia tri dau +1
khi thuc hien ,ban dau bien dem se nhan gia tri bang gia tri dau , sau moi vong lap , bien dem duoc tu dong tang them 1 don vi cho den khi =gia tri cuoi
cau 2
vara,b,cv,dt:interger;
begin
realdn(a);
realdn(b);
cv:=(a+b)*2
dt:=a*b
writeln('chu vi=',cv)
writeln('dien tich=',dt)
end
chuc ban hoc tot