Задача 3 Урок 9

Задача 3 Урок 9

Даны три целых числа: A, B, C. Проверить истинность высказывания: «Число A находится между числами B и C» -- выведите "да", если истинно и "нет" если ложно.

var a,b,c : integer;

begin
  writeln('vvedite celie chisla a b c ');
  read(a,b,c);
  if (a>b) then
     begin
     if (a>c) then
        writeln('max-',a)
     else
        writeln('max-',c)
     end
        else if (b>c) then
           writeln('max=',b)
        else
           writeln('max-',c);
  readln();
end.