Cod sursa(job #366404)

Utilizator csilla_szaboSzabo Csilla csilla_szabo Data 21 noiembrie 2009 19:24:02
Problema A+B Scor 100
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.26 kb
Raporteaza aceasta sursa 
var a,b,c:longint;
      f:text;
begin
 assign(f,'adunare.in');
 reset(f);
 readln(f,a);
 readln(f,b);
 close(f);

 c:=a+b;

 assign(f,'adunare.out');
 rewrite(f);
 if c>2000000000 then write(f,'hiba')
                 else writeln(f,c);
 close(f);
end.