o varianta
program cauta;
var tablou:array[1..10] of integer=(1,4,7,9,54,8,4,90,10,16);
m,i:integer;
begin
write('introduceti valoarea lui m=');
readln(m);
for i:=1 to 10 do
if m= tablou[i] then
begin
write(m);
write( ' exista ');
writeln('stop'); // sau nu
break; // stop
end;
end.