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
comments (?)
stdin 
indiaindiaoscartango
stdout 
iiot
https://ideone.com/t8l9pq
language:
Pascal (fpc 3.0.4)
created:
3 days ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!