Если все 3 заданных числа положительные, определить максимальное, иначе определить максимальное и минимальное

program z1;
var
    a, b, c, max,min: integer;
 
begin
    write ('Введите три числа: ');
    readln (a, b, c);
 if (a>0) and (b>0) and(c>0) then begin
    if a >= b then
        max := a
    else
        max := b;
 
    if c > max then
        max := c;
 
    writeln ('Максимальное из них: ', max); end;
else begin if a <= b then min:=a else min:=b; if c<min then min:=c; end;
 
 
 
end.

program z1;
 
var
  a, b, c, max, min: integer;
 
begin
  write('Введите три числа: ');
  readln(a, b, c);
  if (a > 0) and (b > 0) and (c > 0) then begin
    if a >= b then
      max := a
    else
      max := b;
    
    if c > max then
      max := c;
    
    writeln('Максимальное из них: ', max); end
  else begin
    if a <= b then min := a else min := b;if c < min then min := c;
    writeln('Минимальное ', min);
    if a >= b then
      max := a
    else
      max := b;
    if c > max then
      max := c;
    writeln('Максимальное ', max);
  end;
end.

var a, b, c, mn, mx: Integer;
begin
  Write('a b c: '); ReadLn(a,b,c);
  mx:=a; if mx<b then mx:=b; if mx<c then mx:=c;
  if (a>0) and (b>0) and (c>0)
  then WriteLn('max = ',mx)
  else begin
    mn:=a; if mn>b then mn:=b; if mn>c then mn:=c;
    WriteLn('max = ',mx,',  min = ',mn);
  end;
end.

function min(a, b: Integer): Integer; begin if b<a then min:=b else min:=a end;
function max(a, b: Integer): Integer; begin if b>a then max:=b else max:=a end;
var a, b, c: Integer;
begin
  if (a>0) and (b>0) and (c>0)
  then WriteLn('max = ',max(max(a,b),c))
  else WriteLn('max = ',max(max(a,b),c),',  min = ',min(min(a,b),c));
end.

function min(a, b: Integer): Integer; begin if b<a then min:=b else min:=a end;
function max(a, b: Integer): Integer; begin if b>a then max:=b else max:=a end;
var a, b, c: Integer;
begin
  Write('max = ',max(max(a,b),c));
  if (a<=0) or (b<=0) or (c<=0) then Write(',  min = ',min(min(a,b),c));
  WriteLn;
end.

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