rofish2.pas

来自「This ar the basic programs that i did in」· PAS 代码 · 共 19 行

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.