#danglam228
1. end; : Không cần thiết

2. kt2 : Chưa đc định nghĩa như một hàm hoặc biến

3. dem : Chưa đc khai báo

4. Các hàm kt và kt2 cần đc định nghĩa
5.  Sửa hàm kt3 để trả về giá trị
CODE:

var
  x, n, m, i, u, v, dem: longint;
  a: array[1..100] of longint;
  f, g: text;

function kt(x: longint): boolean;
begin
end;

function kt2(x: longint): boolean;
begin
end;

function kt3(n: longint): longint;
begin
  kt3 := 0;
  if kt2(n) = true then
    inc(kt3);
end;

begin
  x := n * 10;
  for i := 1 to 9 do
    if kt(x + i) = true then
      kt2 := true
    else
      kt2 := false;

  assign(f, 'sntotd.imp');
  reset(f);
  assign(g, 'sntotd.out');
  rewrite(g);
  readln(f, n);
  for i := 1 to n do
    read(f, a[i]);
  readln(f);
  read(f, m);
  for i := 1 to m do
  begin
    read(f, u);
    read(f, v);
    for i := u to v do
      dem := kt3(i);
  end;
end.