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

[Гость_Den]

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

[volvo]

klem4
Программа, идентичная твоей:

Код

uses crt;
const n=20;
var
 a:array[1..n] of integer;
 i,j,k:integer;
 m:integer;

Begin
 clrscr;
 readln(m);
 for i:=1 to n do
   readln(a[i]);
 for i := 1 to n - 1 do
   for j := i + 1 to n - 2 do
     for k := j + 1 to n do
       if a[i]+a[j]+a[k]=m then
         begin
           writeln( 'i = ', i, ' j = ', j, ' k = ', k ); exit
         end;
 writeln('no');
 readln;
end.

А если не видно разницы, зачем писАть больше? ;)