Advertisement
Guest User

Untitled

a guest
Nov 25th, 2014
135
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.22 KB | None | 0 0
  1. program Project1;
  2.  
  3. var a,b,c: integer;
  4. txt1,txt2: string;
  5.  
  6. begin
  7.  
  8. read(txt1);
  9. txt2:=txt1[length(txt1)-1] + txt1[length(txt1)];
  10. writeln(txt2);
  11. val(txt2, a, b);
  12. readln(a);
  13. readln(c);
  14. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement