Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- \newcount\T\newcount\c\let~\catcode~`!13\let!\let~`&13!&\def
- !\E\expandafter!\B\begingroup!\F\endgroup!\Z\endcsname!\G\global!\C\csname!\A\advance
- &\U{\V{`a}{`z}\V{`A}{`Z}}&\V#1#2{\T#1\A\T-1 \loop\A\T1 \E~\number\T=11 \ifnum\T<#2\repeat}
- &\S{\B\U\SI}{&~ := #1 + #2;{\G\E\c\C#1\Z \G\E\A\E\c\C#2\Z \F}\G!\SI~}
- &\I{\B\U\J}&\J eadln(#1);{\endlinechar-1 \escapechar-1 \E\K\C#1\Z\F}&\K{\G\read16 to}
- &\O{\B\U\P}&\P riteln(#1);{\message{\E\the\C#1\Z}\F}
- !\X\end~`r13!r\I~`w13!w\O~`p14~`v14~`b14~`c13!c\S~`e13&end.{\X}
- program test;
- var a, b, c: integer;
- begin
- readln(a);
- readln(b);
- c := a + b;
- writeln(c);
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement