Var
a,b,c,max,min:integer;
Begin
Readln(a,b,c);
if (a>b) and (a>c) then max:=a;
if (b>a) and (b>c) then max:=b;
if (c>a) and (c>b) then max:=c;
if (aif (bif (cWriteln('Максимальное значение - ', max, 'Минимальное - ', min);
end.

PascalABC.Net

program MyProg;

var
  max_a, max1, min_a, min1, a, b, c: longint;

begin
  writeln('Введите три числа');
  readln(a, b, c);
  min1 := min(a, b);
  min_a := min(min1, c);
  max1 := max(a, b);
  max_a := max(max1, c);
  writeln('Максимальное число ', max_a);
  writeln('Минимальное число ', min_a);
end.