Алгоритм через паскаль найти максимальное и минимальное значения из трех различных вещественных чисел.

Var i,x,y,max,min:real;
begin
 readln(i,x,y);
 if i>x then max:=i else max:=x;
 if max<y then max:=y;
 if i<x then min:=i else min:=x;
 if min>y then min:=y;
 writeln('max=',max,'; min=',min);
end.