Алгоритм сравнения трех чисел

program three_numers;
var a,b,c: integer;
begin
writeln ('Введите три целых числа (a b c)');
readln (a,b,c);
if ((a=b) and (a=c) and (b=c)) then
   begin
   if ((a>b) and (a>c))  then
      writeln ('a больше b и c');
   if ((a<b) and (b>c)) then
      writeln ('b больше a и c');
   if ((a<c) and (b<c)) then
      writeln ('c больше a и b');
   end
else
  begin
    if ((a=c) and (a=b)) then
       writeln ('a, b и c равны');
    if ((a=b) and (a>c)) then
       writeln ('a и b равны и больше c');
    if ((a=b) and (a<c)) then
    writeln ('a и b равны и меньше c');
    if ((a=c) and (a>b)) then
    writeln ('a и c равны и больше b');
    if ((a=c) and (a<b)) then
    writeln ('a Ёи c равны и меньше b');
    if ((b=c) and (a<b)) then
    writeln ('b и c равны и меньше a');
    if ((b=c) and (a>b)) then writeln ('b и c равны и меньше a');
  end;
readln;
end.

if ((a=b) and (a=c) and (b=c)) then
   begin
   if ((a>b) and (a>c))  then
      writeln ('a больше b и c');
   if ((a<b) and (b>c)) then
      writeln ('b больше a и c');
   if ((a<c) and (b<c)) then
      writeln ('c больше a и b');
   end

if ((a<>b) and (a<>c) and (b<>c))  then

program three_numers;
uses crt;
var a,b,c: integer;
    x,y,z: boolean;
begin
writeln ('Введите три целых числа (a b c)');
readln (a,b,c);
x:=(a=b);
y:=(a=c);
z:=(b=c);
if ((x=y) and (y=true)) Then WriteLN ('Все числа равны');
 
if ((x=true) and (y=false)) Then
    if a>c Then WriteLN ('a и b равны и больше с')
    else WriteLN ('a и b равны и меньше с');
if ((y=true) and (z=false)) Then
    if a>b Then WriteLN ('a и c равны и больше b')
    else WriteLN ('a и c равны и меньше b');
if ((z=true) and (x=false)) Then
    if a<b Then WriteLN ('b и c равны и больше a')
    else WriteLN ('b и c равны и меньше a');
 
if ((a>b) and (a>c) and (z=false)) Then WriteLN ('a больше, чем b и с');
if ((a<b) and (b>c) and (y=false)) Then WriteLN ('b больше, чем a и с');
if ((a<c) and (b<c) and (x=false)) Then WriteLN ('c больше, чем a и b');
 
ReadLN;
end.

  writeln('Input a,b,c:');
  readln(a,b,c);
  if(a=b)then
    if(b=c)then writeln('a=b=c')
    else if(b>c)then writeln('a,b - max, c - min')
    else writeln('c - max, a,b - min')
  else if(b=c)then
    if(a>c)then writeln('a - max, b,c - min')
    else writeln('c,b - max, a - min')
  else if(a>b)then
    if(c>a)then writeln('C - max, B - min')
    else if(c>b)then writeln('A - max, B - min')
    else writeln('A - max, C - min')
  else
    if(c>b)then writeln('C - max, A - min')
    else if(c>a)then writeln('B - max, A - min')
    else writeln('B - max, C - min');

uses wincrt;
var a,b,c,mx,mn,mx1,mn1,mx2,mn2:integer;
begin
clrscr;
write('a=');readln(a);
write('b=');readln(b);
write('c=');readln(c);
mx1:=(a+b+abs(a-b)) div 2;{1й макс}
mx2:=(mx1+c+abs(mx1-c)) div 2;{2й макс}
mx:=(mx1+mx2+abs(mx1-mx2)) div 2;{итог}
mn1:=(a+b-abs(a-b)) div 2;{1й мин}
mn2:=(mn1+c-abs(mn1-c)) div 2;{2й мин}
mn:=(mn1+mn2-abs(mn1-mn2)) div 2;{итог}
writeln('max=',mx,'  min=',mn);
readln
end.

mx:=a;
if b>mx then mx:=b;
if c>mx then mx:=c;