FANDOM


program Spell_Out;
var counter, limit: integer; 
    word: string;
begin
write ('Enter the word to be spelled out: ');
readln (word);
limit := length (word);
counter := 1;                   
writeln (word, ' spelled out is:');
while counter <= limit do       
  begin
  write (' ', copy (word, counter, 1));  
  counter := counter + 1;       
  end;
writeln;                        
readln;
end.