var a: array[0..9] of integer;
s: string;
i,j: integer;
begin
for i:=0 to 9 do a[i]:=0;
write('число: '); readln(s);
for i:=1 to length(s) do inc(a[ord(s[i])-48]);
i:=9;
while a[i]=0 do i:=i-1;
j:=i;
i:=0;
while a[i]=0 do i:=i+1;
if (chr(j+48)+chr(i+48)=s[length(s)-1]+s[length(s)]) or
(chr(i+48)+chr(j+48)=s[length(s)-1]+s[length(s)])
then writeln('Да')
else writeln('Нет');
end.
число: 18245390
Да
число: 1205483Нет