Question

Знайдіть помилку дуже прошу, програма для знаходження не найменшого і не найбільшого числа з трьох чисел
program Project1;
var a,b,c:longint;
begin
readln(a,b,c);
if (a>b) and (a<c) or (a>c) and (a<b) then writeln(a);
if (b>a) and (b<c) or (b>c) and (b<a) then writeln(b);
if (c>b) and (a<b) or (c>a) and (b>c) then writeln(c);
writeln(maxlongint);
readln;
end.

Answer 1

Ось:

program Project1; 
var   a,b,c:longint;
begin
readln(a,b,c);
if (a>b) and (a<c) or (a>c) and (a<b) then writeln(a) else
if (b>a) and (b<c) or (b>c) and (b<a) then writeln(b) else
if (c>b) and (a<b) or (c>a) and (b>c) then writeln(c);
readln;
end.

Не дуже розумію, навіщо ви написали рядок:"writeln(maxlongint);". Чи це залишилося від перевірки числового інтервалу даного типу?