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

var a,b,c,min,max:integer;beginreadln(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.