написать программу в среде Delphi, которая проверяет находится ли введённое с клавиатуры число в массиве.

program t_1;   const size=100;   var a:array[1..size] of integer; i,n,m,q:integer;begin    readln(n);    for i:=1 to n do       read(a[i]);    readln(m);    for i:=1 to n do       if a[i]=m then           begin             writeln('YES');             q:=1;             break;          end;    if q=0 then writeln('NO')end.

Писал на мове Паскаль. Не знаю подойдет ли...

Хотя должно

не могли бы вы мне объяснять по какому принципу она работает

всё поняла как она работает