Вывод максимального и минимального из 3-х чисел

var
  a1, a2, a3, max, min: integer;
 
begin
  readln(a1, a2, a3);
  max := a1;
  min := a1;
  
  if a2 > max then 
    max := a2;
  if a3 > max then 
    max := a3;
  
  if a2 < min then 
    min := a2;
  if a3 < min then 
    min := a3;
  
  writeln('Max: ', max, '. Min: ', min);
end.

var a, b, c, t: Integer;
begin
  Write('a b c: '); ReadLn(a,b,c);
  if b<a then begin t:=a; a:=b; b:=t; end;
  if c<b then begin t:=b; b:=c; c:=t; end;
  if b<a then begin t:=a; a:=b; b:=t; end;
  WriteLn(a); WriteLn(c);
end.

var
  a1, a2, a3, max, min: integer;
begin
  readln(a1, a2, a3);
max:=a1;
min:=a2;
if a2>a1 then begin
max:=a2;
min:=a1;
end;
if a3>max then max:=a3;
if a3<min then min:=a3;
writeln('max=',max,' min=',min);
end.

program Max_Chislo;
var
  a, b, c, max: Integer;
begin
  writeln('Vvedite a');
  readln(a);
  writeln('Vvedite b');
  readln(b);
  writeln('Vvedite c');
  readln(c);
  max:=a;
  if b > max then max:=b;
  if c > max then max:=c;
  writeln('max chislo: ',max);
  readln(max);
end.