ввести с клавиатуры 3 числа ввес и максимальное и минимальное значение

procedure swap(var a, b: real);var  c: real;begin    c := b;    b := a;    a := c;end;var  a, b, c, d: real;begin  readln(a, b, c);  if (a < b) then    swap(a, b);  if (b < c) then    swap(b, c);  if (a < b) then    swap(a, b);  writeln('min = ', c, #13, 'max = ', a);end.

var  a,b,c,max,min:real;beginreadln(a);max:=a;min:=a;readln(b);if b<min then min:=b;if b>max then max:=b;readln(c);if c<min then min:=c;if c>max then max:=c;writeln('min=',min,' max=',max)end.