Cod sursa(job #839190)

Utilizator XiDeRVasile Vasile XiDeR Data 21 decembrie 2012 14:43:00
Problema A+B Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.54 kb
program ossze;
var f,g:text;
    n,m:string;
    szam1,szam2,hibakod,i:byte;
begin
  assign(f,'adunare.in');
  reset(f);

  readln(f,n);
  if ord(n[0])<10 then
  begin
     while ord(n[0])<10 do
     insert('0',n,1);
  end;
  readln(f,m);

  if ord(m[0])<10 then
  begin
     while ord(m[0])<10 do
     insert('0',m,1);
  end;

  assign(g,'adunare.out');
  rewrite(g);
  for i:=10 downto 1 do
  begin
     val(n[i],szam1,hibakod);
     val(m[i],szam3,hibakod);
     write(g,szam2+szam1);
  end;
  close(f);
  close(g);
end.