Câu 1:
*Khai báo: Var x: integer;
y: real;
*Phép gán:
- x:=<giá trị cho x>;
- y:=<giá trị cho y>;
+ Ví dụ: x:=1; y:=x+2;
Câu 2:
Uses crt;
Var a, b, s, p: integer;
Begin
Clrscr;
Write('Nhap chieu dai a = '); readln(a);
Write('Nhap chieu rong b = '); readln(b);
s:=a*b;
p:=(a+b)*2;
Writeln('Chu vi la: ',p:0:2);
Writeln('Dien tich la: ',s:0:2);
Readln
End.