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

Var a,b,c,min,max:integer;
begin
readln(a,b,c);
min:=a;
if b<min then min:=b;
if c<min then min:=c;
max:=a;
if b>max then max:=b;
if c>max then max:=c;
writeln('min=',min);
writeln('max=',max);
end.