Даны три числа. Вывести сначала наименьшее затем наибольшее из данных чисел. Язык: паскаль

Question

Даны три числа. Вывести сначала наименьшее затем наибольшее из данных чисел. Язык: паскаль

Answer 1

Var a,b,c,max,min:longint;
begin
read (a,b,c);
if ((a>b) and (a>c)) then max:=a else
if ((b>a) and (b>c)) then max:=b else
if ((c>b) and (c>a)) then max:=c;
if ((aif ((bif ((cwrite (min,' ',max);
end.