rofish2.pas

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

program verificre;
var f:text;
    a,b,n,i:integer;
    v:array[1..100] of integer;
begin
assign(f,'probl.txt');
reset(f);
write('a=');readln(a);
write('b=');readln(b);
for i:=1 to n do
              begin
              if (v[i] >a) and (v[i]<b) then write('da');
              if (v[i] <a) and (v[i]>b) then write ('da')
                                        else write ('nu');
              end;
close(f);
readln;
end.