Câu 1: Cách 1: type ArrayName = array[0..size-1] of DataType; var A: ArrayName;

Cách 2: var A: array[0..size-1] of DataType;

Ví dụ: Cách 1: type IntArray = array[0..9] of integer; var A: IntArray;

Cách 2: var A: array[0..9] of integer;

Câu 2: var a, b, x: real; begin write('Nhap a: '); readln(a); write('Nhap b: '); readln(b); if a = 0 then begin if b = 0 then writeln('Phuong trinh co vo so nghiem') else writeln('Phuong trinh vo nghiem'); end else begin x := -b/a; writeln('Nghiem cua phuong trinh la: ', x:0:2); end; end.