Помогите решить задачу на цикл Опции

[Гость_Den]

Даны целые числа m, a1, ..., a20. Найти три натуральных числа i, j, k, каждое из которых не превосходит 20, такие, что ai+aj+ak=m. Если такихчисел нет, то сообщить об этом.

[klem4]

Вот так можно попробовать :

Код

uses crt;
const n=5;
var a:array[1..n] of integer;
   i,j,k:integer;
   m:integer;
   flag:boolean;
   nfind1,nfind2,nfind3:integer;

Begin
  clrscr;
  readln(m);
  for i:=1 to n do
   readln(a[i]);
  i:=1;
  while (i<=n-1)and(not(flag)) do
   begin
      j:=i+1;
      while (j<=n-2)and(not(flag)) do
       begin
          k:=j+1;
          while (k<=n)and(not(flag)) do
           begin
              if a[i]+a[j]+a[k]=m then
               begin
                  flag:=true;
                  nfind1:=i;
                  nfind2:=j;
                  nfind3:=k;
               end;
              inc(k);
            end;
           inc(j);
       end;
      inc(i);
  end;
  writeln;
  if not(flag) then writeln('NO')
   else
      begin
         writeln('i=',nfind1);
         writeln('j=',nfind2);
         writeln('k=',nfind3);
      end;
  readln;
end.