Впорядкувати три довільних числа в порядку зростання в ПАСКАЛІ

const nx=20;var A:array[1..nx] of integer; i,j,n,d:integer;beginfor i:=1 to 3 do beginwriteln('Введите число');readln(A[i]);end;for j:=1 to 3 do beginfor i:=2 to 3 do beginif A[i-1]> A[i] then begin d:= A[i-1]; A[i-1]:= A[i];A[i]:=d;end;end;end;writeln;for i:=1 to 3 dowriteln(A[i]);end.