Advertisement
Guest User

Untitled

a guest
Mar 1st, 2017
84
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.30 KB | None | 0 0
  1. var
  2. i, position: integer;
  3. s, buk, buk2:string;
  4. begin
  5. assign(input,'input.txt');
  6. reset(input);
  7. assign(output,'output.txt');
  8. rewrite(output);
  9. s:='qwertyuiopasdfghjklzxcvbnm';
  10. read(buk);
  11. for i:=1 to length(s) do
  12. if s[i] = buk then
  13. position:=i;
  14. buk2:=s [position + 1];
  15. write(buk2);
  16. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement