Не получается записать правильно. , Я думаю, что сначала переменную div 10, после чего результат mod 10. А дальше сравнить. Ка

Не получается записать правильно. Помогите, пожалуйста
Я думаю, что сначала переменную нужно div 10, после чего результат mod 10. А дальше сравнить. Как это написать? 

  • var a,b,c:integer;
    function mid (const n:integer):integer;
     begin
       mid:=(n div 10) mod 10;
     end;
    begin
      readln (a,b,c);
      if (mid(a)>mid(b)) and (mid(a)>mid(c)) then writeln (a) else
       if (mid(b)>mid(a)) and (mid(b)>mid(c)) then writeln (b) else writeln (c);
    end.
  • var a,b,c,x:integer;
    begin
    readln(a,b,c);
    if (a>999) or (a<99) then
    begin
    writeln(‘ОШИБКА’);
    end;
    if (b>999) or (b<99) then
    begin
    writeln(‘ОШИБКА’);
    end;
    if (b>999) or (b<99) then
    begin
    writeln(‘ОШИБКА’);
    end;
    a:=a div 10;
    a:=a mod 10;
    b:=b div 10;
    b:=b mod 10;
    c:=c div 10;
    c:=c mod 10;
    if (a>b) and (a>c) then
    writeln(a);
    if (b>a) and (b>c) then
    writeln(b);
    if (c>a) and (c>b) then
    writeln(c);
    end.




Внимание, только СЕГОДНЯ!