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.

Ad blocker interference detected!


Wikia is a free-to-use site that makes money from advertising. We have a modified experience for viewers using ad blockers

Wikia is not accessible if you’ve made further modifications. Remove the custom ad blocker rule(s) and the page will load as expected.