\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.