Sử dụng Free Pascal để giải bài toán sau: Cho một dãy các số tự nhiên gồm N chữ số khác nhau, N <=200. - Nhập vào dãy số đã cho (có kiểm tra việc trùng nhau), in dãy đã cho. - Nhập vào một số M bất kỳ, kiểm tra xem số M có xuất hiện trong trong dãy số đã cho không? Nếu có thì ghi vị trí xuất hiện của M, ngược lại ghi 0. Kết quả của chương trình được ghi vào file Ketqua.out

uses crt;
var i,n:byte;
    a:array[1..1000] of longint;
    m:longint;
    f:text;
function trung(m:longint;n:byte):boolean;
var i:byte;
begin
    for i:=1 to n-1 do
       if a[i]=m then exit(true);
    exit(false);
end;
begin
   clrscr;
   assign(f,'Ketqua.out');rewrite(f);
   readln(n);
   for i:=1 to n do
      repeat
          read(a[i]);
      until trung(a[i],i)=false;
   for i:=1 to n do write(f,a[i],' ');writeln(f);
   readln(m);
   for i:=1 to n do
      begin
         if a[i]=m then
            begin
                write(f,i);
                break;
            end;
      end;
   if a[i]<>m then writeln(f,'0');
   close(f);
readln;
end.