program se;
uses crt;
var
a,b,n:integer;
begin
writeln('Введите число А: ');
read(a);
writeln('Введите число В: ');
read(b);
writeln('Введите число N: ');
read(n);
if (a > n) and (b > n) then writeln('Больше')else
if (awriteln('В промежутке между А и В');
end.
Блок схему сейчас не могу нарисовать, да и она простейшая.