fork download
  1. program natoabc;
  2.  
  3. var
  4. S, T, lettera : AnsiString;
  5. step, pos : Longint;
  6.  
  7. begin
  8.  
  9. (*assign(input, 'input.txt'); reset(input);
  10.   assign(output, 'output.txt'); rewrite(output);*)
  11.  
  12.  
  13. ReadLn(S);
  14.  
  15. T := '';
  16.  
  17. {"alpha", "bravo", "charlie", "delta", "echo", "foxtrot", "golf", "hotel", "india", "juliett", "kilo", "lima", "mike", "november", "oscar", "papa", "quebec", "romeo", "sierra", "tango", "uniform", "victor", "whiskey", "xray", "yankee", "zulu"}
  18.  
  19. pos:=1; T:=S[1];
  20. while pos<=length(S) do
  21. begin
  22. lettera:=S[pos];
  23. case lettera of
  24. 'a' : step :=5;
  25. 'b' : step :=5;
  26. 'c' : step :=7;
  27. 'd' : step :=5;
  28. 'e' : step :=4;
  29. 'f' : step :=7;
  30. 'g' : step :=4;
  31. 'h' : step :=5;
  32. 'i' : step :=5;
  33. 'j' : step :=7;
  34. 'k' : step :=4;
  35. 'l' : step :=4;
  36. 'm' : step :=4;
  37. 'n' : step :=8;
  38. 'o' : step :=5;
  39. 'p' : step :=4;
  40. 'q' : step :=6;
  41. 'r' : step :=5;
  42. 's' : step :=6;
  43. 't' : step :=5;
  44. 'u' : step :=7;
  45. 'v' : step :=6;
  46. 'w' : step :=7;
  47. 'x' : step :=4;
  48. 'y' : step :=6;
  49. 'z' : step :=4;
  50. end;
  51. pos:=pos+step;
  52. T:=T+S[pos];
  53. end;
  54. WriteLn(T);
  55. end.
  56.  
Success #stdin #stdout 0s 5292KB
stdin
indiaindiaoscartango 
stdout
iiot