Cod sursa(job #5493)

Utilizator ilandIliasenco Andrei iland Data 12 ianuarie 2007 19:52:31
Problema A+B Scor 100
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.22 kb
Raporteaza aceasta sursa 
program a;
var f,g:text;
    n,m,s:extended;
begin
  assign(f,'adunare.in');
  assign(g,'adunare.out');
  reset(f);
  rewrite(g);
  readln(f,n);
  read(f,m);
  s:=n+m;
  write(g,s:1:0);
  close(f);
  close(g);
end.