Biến r, lệnh gán r:=5; r:=r+5;
Program Typlex271;
Uses crt;
Const pi=3.14;
Var r: integer;
Begin
(*R=5*)
r:=5;
Writeln('Chu vi cua hinh vuong do la: ',r*4);
Writeln('Dien tich hinh vuong do la: ', r*r*pi);
(*R=R+5=10*)
r:=r+5;
Writeln('Chu vi cua hinh vuong do la: ',r*4);
Writeln('Dien tich hinh vuong do la: ', r*r*pi);
Readln
End.
#Xin CTLHN, chúc bạn học tốt