srzontmp
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Нет