Объяснение:
var a, b, i:Integer;
begin
readln(a);
readln(b);
if b <= a then begin
writeln('False');
end;
for i:=a+1 to b-1 do begin
writeln(i);
end.
