用基本语句设计一个算法,要求输入50个数,

pascal选择法：
type
arr=array[1..50] of integer;
var
a:arr;i,t,p:integer;
begin
for i:=1 to 50 do readln(a[i]);
for p:=1 to 50 do
for i:=p to 50 do if a[p]<a[i] then begin t:=a[i];a[i]:=a[p];a[p]:=t;end;
for i:=1 to 50 do write(a[i],' ');
end.