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

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.