roat9.pas

This ar the basic programs that i did in highschool. From very simple to medium programs. From array

var v:array[1..50] of integer;
    i,n,x,p:integer;
begin
write('n=');readln(n);
write('x=');readln(x);
write('v[1]=');
readln(v[1]);
i:=2;
repeat
write ('v[',i,']=');
readln(v[i]);
if v[i]>=v[i-1] then inc(i);
until i=n+1;
if (x<v[1]) or (x>v[n]) then write(x,' nu se gaseste printe elemente ')
                        else writeln(x,' se gaseste printre elemente');
readln;
end.