fork download
  1. program happy_paswords;
  2.  
  3. var
  4. s, p: string;
  5. i, n: integer;
  6.  
  7. begin
  8. p[1] := '2';
  9. writeln(p);
  10.  
  11. end.
Success #stdin #stdout 0s 232KB
stdin
abcdef
stdout