Решение задачи ExamBegin2

uses PT4Exam;
var
  a,b,c,max,min: real;
begin
  Task('ExamBegin2');
  Read(a,b,c);
  if (a>b) and (a>c) then begin
    max:=a;
    if b>c then min:=c
    else min:=b;
  end;
  if (b>a) and (b>c) then begin
    max:=b;
    if a>c then min:=c
    else min:=a;
  end;
  if (c>a) and (c>b) then begin
    max:=c;
    if a>b then min:=b
    else min:=a;
  end;
  WriteLn('MIN=',min:4:2);
  WriteLn('MAX=',max:4:2);
end.

У этой задачи возможно еще одно решение. Для обработки чисел мы используем цикл, в котором сравниваем их значения и отбираем наибольшее и наименьшее.

uses PT4Exam;

var
  x, max, min: real;
  i: integer;

begin
  Task('ExamBegin2');
  min := maxreal;
  max := -maxreal;
  for i := 1 to 3 do
  begin
    read(x);
    if x > max then max := x;
    if x < min then min := x;
  end;
  WriteLn('MIN=', min:4:2);
  WriteLn('MAX=', max:4:2);
end.