program Project1;
{$APPTYPE CONSOLE}
var
 sym : char;
 a, b : AnsiString;
 la, lb, i : qword;
 l, m, n : byte;
 c : array of byte;
begin
  read(sym);
  repeat
  a:=a+sym;
  read(sym);
  until (sym=' ');
  readln(b);
  la:=length(a);
  lb:=length(b);
  if la>lb then setlength(c, la) else setlength(c, lb);
  i:=0;
  n:=0;
  repeat
    i:=i+1;
    if la>0 then l:=ord(a[la])-48 else l:=0;
    if lb>0 then m:=ord(b[lb])-48 else m:=0;
    c[i]:=l+m+n;
    n:=c[i] div 10;
    c[i]:=c[i] mod 10;
    if la>0 then la:=la-1;
    if lb>0 then lb:=lb-1;
  until (la<=0) and (lb<=0) and (n=0);
  while (i>0) do begin
  write(c[i]);
  i:=i-1;
  end;
end.

=)
      (=

just high precision, but a bit slow

Or just use unsigned long long in C...

I know that this problem can be solved by this:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  a, b : longint;
begin
  read(a,b);
  write(a+b);
end.

I did it just for fun))))