Задача 1 «Сумма»

Имя входного файла:                                                                    sum.in
Имя выходного файла:                                                                 sum.out
Максимальное время работы на одном тесте:                        2 секунды
Максимальный объем используемой памяти:                           64 мегабайта
Максимальное количество баллов                                              100 баллов

Найти сумму двух чисел

Формат входных данных

Первая строка входного файла содержит два числа a, b и (-2000000000 <= a,b <= 2000000000). Числа в строках разделены пробелом.

Формат выходных данных

В выходном файле должна содержаться сумма этих чисел

Примеры входных и выходных файлов

sum.in    sum.out
  2 2         4
-10 10         0

var inf,b,c,result2:string;
    x:char;
    a,b1,c1,result:integer;
    f1,f2:text;
begin
  assign(f1,'sum.in');
  reset(f1);
  assign(f2,'sum.out');
  rewrite(f2);
  read(f1,inf);
  close(f1);
  for a:=1 to length(inf) do
  begin
    x:=inf[a];
    if x<>' ' then b:=b+x
    else begin
           c:=copy(inf,a+1,length(inf)-a+1);
           break;
         end;
  end;
  val(b,b1,a);
  val(c,c1,a);
  result:=b1+c1;
  str(result,result2);
  write(f2,result2);
  close(f2);
end.