fork download
copy 
  1. program natoabc;
  2. Uses sysutils;
  3.  
  4. var
  5.     S, T, lettera : AnsiString;
  6.     step, pos : Longint;
  7.  
  8. begin
  9.  
  10.    (* assign(input,  'input.txt');  reset(input);
  11.     assign(output, 'output.txt'); rewrite(output);*)
  12.  
  13.  
  14.     ReadLn(S);
  15.     S:=Trim(S);
  16.  
  17.     T := '';
  18.  
  19.     {"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"}
  20.  
  21.     pos:=1; T:=S[1]; 
  22.     while pos<=length(S)-8 do
  23.                 begin
  24.                    lettera:=S[pos];
  25.                    case lettera of
  26.         		'a' : step :=5;
  27.         	        'b' : step :=5;
  28.           		'c' : step :=7;
  29.           		'd' : step :=5;
  30.           		'e' : step :=4;
  31.           		'f' : step :=7;
  32.           		'g' : step :=4;
  33.           		'h' : step :=5;
  34.           		'i' : step :=5;
  35.           		'j' : step :=7;
  36.           		'k' : step :=4;
  37.           		'l' : step :=4;
  38.           		'm' : step :=4;
  39.           		'n' : step :=8;
  40.           		'o' : step :=5;
  41.           		'p' : step :=4;
  42.           		'q' : step :=6;
  43.           		'r' : step :=5;
  44.           		's' : step :=6;
  45.           		't' : step :=5;
  46.           		'u' : step :=7;
  47.           		'v' : step :=6;
  48.           		'w' : step :=7;
  49.           		'x' : step :=4;
  50.           		'y' : step :=6;
  51.           		'z' : step :=4;
  52.                  end;
  53.                 pos:=pos+step; 
  54.                 if pos<=length(S) then T:=T+S[pos];
  55.              end;   
  56.  
  57.     WriteLn(T);
  58. end.
  59.  
Success #stdin #stdout 0.01s 5288KB
comments (?)
stdin
copy 
kilooscardeltakilouniformpapaalpha
stdout
copy 
kodkupa
https://ideone.com/W6JZwt
language:
Pascal (fpc 3.0.4)
created:
1 day 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!