Проверьте правильно ли написана программа по теме "сортировка массива": program dt2; uses crt; var a: array[1..4] of integer; j,i,x: integer; begin for i: =1 to 4 do; read(a[i]) end; begin for j: =1 to 3 do end; for i: =1 to 4-j do; end; if a[i]> a[i+1] then begin x: =a[i]; a[i]: =a[i+1]; a[i+1]: =x end; for i: =1 to 4 do writeln (a[i]) end.