Pascal ABC...................
N=int(input())
a=[]
for i in range(n):
(пробел)a.append=int(input())
a=sorted(a)
a=reverse(a)
print(a)
Program spinogryz21;
var
x, i: integer;
yes: boolean;
begin
yes := FALSE;
write('Введите число Х ');
readln(x);
for i := 1 to 4 do
begin
if (x mod 10) = 6 then yes := TRUE;
x:=x div 10;
end;
if yes then writeln('6 входит в число Х')
else writeln('6 не входит в число Х');
end.