Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program Project1;
- var a,b,c: integer;
- txt1,txt2: string;
- begin
- read(txt1);
- txt2:=txt1[length(txt1)-1] + txt1[length(txt1)];
- writeln(txt2);
- val(txt2, a, b);
- readln(a);
- readln(c);
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement