Code Corona

program bbsort;
uses crt;
var x,y :integer;
mark:array[1..5] of integer;
procedure swapping(var a,b : integer);
var c:integer;
begin
c:=a;
a:=b;
b:=c
end;
Begin
for x:=1 to 5 do readln(mark[x]);
for y:=1 to 5-1 do
for x:=1 to 5-y do
if mark[x] <= mark[x+1] then swapping(mark[x],mark[x+1]);
writeln;
for x:= 1 to 5 do writeln(mark[x])
End.