fork download
  1. program SODX;
  2.  
  3. var s, newStr, ans: ansistring;
  4. n, i: integer;
  5. j: char;
  6. fi, fo: text;
  7.  
  8. function palin(s: string): boolean;
  9. var i, n: integer;
  10. begin
  11. n := length(s);
  12. for i := 1 to n div 2 do
  13. if s[i] <> s[n-i+1] then exit(false);
  14. exit(true);
  15. end;
  16.  
  17. begin
  18. assign(fi, 'SODX.inp'); reset(fi);
  19. assign(fo, 'SODX.out'); rewrite(fo);
  20. read(fi, s);
  21. n := Length(s);
  22. ans := '';
  23. for i := 0 to n do begin
  24. for j := '0' to '9' do begin
  25. newStr := copy(s, 1, i) + j + copy(s, i + 1, n);
  26. //iteln(newStr);
  27. // (palin(newStr)) then writeln('palin');
  28. if (palin(newStr)) AND ((ans = '') OR (newStr > ans)) then
  29. ans := newStr;
  30. end;
  31. end;
  32. write(fo, ans);
  33. close(fi);
  34. close(fo);
  35. end.
Runtime error #stdin #stdout #stderr 0s 368KB
stdin
Standard input is empty
stdout
Standard output is empty
stderr
Runtime error 2 at $00000000004002F5
  $00000000004002F5