Cau truc mang trong Pascal

Bài 1 :
Giải hệ phương trình tuyến tính hai ẩn dùng ma trận :
a11x + a12y = c1
a21x + a22y = c2
Uses Crt;
Var a: array[1..2, 1..2] of real;
c: array[1..2] of real;
d, dx, dy, x, y: real;

BEGIN
Clrscr;
Writeln(`Giai he phuong tring tuyen tinh hai an:`);
Writeln(` a11x+a12y=c1`);
Writeln(` a21x+a22y=c2`);
Writeln(`Nhap cac he so cua he phuong trinh`);
Write(`a11=`); Readln(a[1,1]);
Write(`a12=`); Readln(a[1,2]);
Write(`c1=`); Readln(c[1]);
Write(`a21=`); Readln(a[2,1]);
Write(`a22=`); Readln(a[2,2]);
Write(`c2=`); Readln(c[2]);
d:=a[1,1]*a[2,2] - a[2,1] * a[1,2];
dx:=c[1]*a[2,2] - c[2] * a[1,2];
dy:=a[1,1]*c[2] - a[2,1] * c[1];
If d=0 then Writeln(` He vo nghiem hoac vo so nghiem`)
Else
Begin
x:=dx/d; y:=dy/d;
Writeln(`He co nghiem duy nhat :`);
Writeln(`x=`, x:0:2, ` ; y=`, y:0:2);
End ;
Readln;
END .
Bài 2 :
Lập phương trình tạo ra một mảng chứa bảng cửu chương .
Uses Crt ;
Var a : Array[1..10, 2..9] Of Byte ;
i, j : Byte ;
BEGIN
Clrscr ;
For i := 1 To 10 Do
For j := 2 To 9 Do a[i, j] := i*j ;
Writeln(` Bang cuu chuong : `) ; Writeln ;
For i := 1 To 10 Do
For j := 2 to 9 do Write ( j:4 , `x` , i:2 , `=` , a[i , j]:2) ;
Readln ;
END .
Bài 3 :
Viết chương trình nhập hai số nguyên dương m , n . Sau đó tính trung bình cộng bình phương các số nguyên từ m đến n .
Var m , n , k , s : Word ;
tb : real ;

BEGIN
Writeln(`Nhap 2 so nguyen duong m, n :`) ;
Write (` m = `) ; Readln(m) ;
Write (` n = `) ; Readln(n);
If m > n Then (* ñoãi choã ñeå m <= n *)
Begin
k := m ; m := n ; n := k ;
End ;
s := 0 ;
For k := m To n do s := s + sqr(k) ;
tb := s / (n - m + 1) ;
Writeln (`Trung binh cong bimh phuong cac so `
+ `nguyen tu m den n la: `, tb:12:2);
Readln ;
END .
Bài 4 :
Viết chương trình nhập từ bàn phím các phần tử của một mảng hai chiều . Kích thước của mảng được nhập trước từ bàn phím .
Var m , n , i , j : Byte ;
a : Array[1..100, 1..100] Of Real;

BEGIN
Write (`Nhap cac kich thuoc cua mang hai chieu : `) ;
Write (` So hang m = `) ; Readln(m) ;
Write (` So cot n = `) ; Readln(n) ;
Writeln (` Nhap cac phan tu cua mang : `) ;
For i := 1 To m Do
For j := 1 To n Do
Begin
Write (`a[`, i:2, `, ` , j:2 ,`]=`) ; Readln(a[i, j]) ;
End ;
Readln ;
END .
Bài 5 :
Dãy số sau được gọi là dãy Fibonaci :
a1 = 1
a2 = 1
a3 = 2
a4 = 3