Составьте программу сортировки по возрастанию значений трех переменных: а, в, с. продемонстрируйте данный алгоритм в виде блок-схемы.

var a, b, c, t: integer;

begin

readln(a, b, c);

if a > b then begin t:=a; a:=b; b:=t end;

if b > c then begin t:=b; b:=c; c:=t end;

if a > b then begin t:=b ;b:=a; a:=t end;

writeln(a, ' ', b, ' ', c);

end.