Составить программу и блок-схему для : введите числа a b n если оба числа > n, то напечатайте слово "больше" если < n то слово "меньше", иначе напечатайте n "в промежутке между а и в"

  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 (a< n) and (b< n) then writeln('меньше')else writeln('в промежутке между а и в'); end. блок схему сейчас не могу нарисовать, да и она простейшая.

program p;

vara,b,c,i,j,n : integer;

beginwriteln('введите три числа'); readln(a,b,c);

if a> b then if a> c then writeln(a,c,b) else writeln(c,a,b) else if c> b then writeln(a,b,c) else writeln(b,c,a);  

readln; end.