Question

помогите что то не идет программа

Answer 1

Дата и время правильное?

Answer 2

var  i,n,p,j:integer; z:array[1..100]of integer;beginreadln(n);for i:=1 to n do readln(z[i]);for i := 1 to n - 1 do     for j := i + 1 to n do      if z[i] > z[j] then begin p := z[i];z[i] := z[j];z[j] := p end;      for i:=  1 to n do      writeln(z[i]);      end.