Câu 1: Ma Phương Viết chương trình nhập vào số tự nhiên n (n lẻ) từ bàn phím , sau đó điền các số từ 1 đến n2 trong một bảng vuông sao cho tổng các hàng ngang, dọc và 2 đường chéo bằng nhau(bảng này gọi là ma phương) xuất kết quả ra màn hình

Program bt;
Uses crt;
Var
  s: String;
  i,j,max: Integer;
  d: Array [1..1000] Of Integer;
Begin
  Clrscr;
  read(s);
  For i:= 1 To Length(s)-1 Do
    For j:= i+1 To Length(s) Do
      If s[j]=s[i] Then
        Begin
          d[i] := d[i]+1;
          Delete(s,j,1);
        End;
  Writeln('So ki tu co trong chuoi la : ',Length(s));
  max := d[1];
  For i:=2 To Length(s) Do
    If d[i] > max Then max := d[i];
  For i:= 1 To Length(s) Do
    If d[i]=max Then
      Write('Ki tu ',s[i],' xuat hien nhieu nhat voi ',d[i],' lan xuat hien');
  Readln;
End.