program Belozor3 var array of integer integer begin writeln Введите ва

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
program Belozor3;
var a:array[1..5] of integer;
i,j,c:integer;
begin
writeln('Введите ваш массив: ');
for i := 1 to 5 do
readln (a[i]);
for i:=1 to 5 do begin
for j:=1 to 5 do begin
if a[i]<a[j] then begin
c:=a[i];
a[i]:=a[j];
a[j]:=c;
end;
end;
end;
writeln('Выводим ваш массив: ');
for i:=1 to 5 do begin
writeln(a[i]);
end;
readln();
end.