Cod sursa(job #2137635)

Utilizator ine_hanghangan inesa ine_hang Data 20 februarie 2018 22:30:45
Problema A+B Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.31 kb
program p1;
   uses crt;
   var a,b,f,g:integer;
   f,g:text;
 begin clrscr;
  assingn(f,'adunare.in');
  reset(f);
  readln(f,a,b);
  close(f);
   if x<2000000000 then  x:=a+b
                   else writeln('eroare');

  assingn(g,'adunare.out');
  rewrite(g);
  writeln(g,a+b);
  close(g);
  end.