Cod sursa(job #123880)

Utilizator mirceadinoMircea Popoveniuc mirceadino Data 17 ianuarie 2008 17:24:23
Problema A+B Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.29 kb
Raporteaza aceasta sursa 
program ex1;
uses crt;
var a,b: integer;
    f1,f2: text;
begin
clrscr;
assign(f1,'D:\TP\BIN\a+b.in');
reset(f1);
assign(f2,'D:\TP\BIN\a+b.txt');
rewrite(f2);
while not eof(f1) do
     begin
      read(f1,a);
      read(f2,b);
     end;
write(a+b);
close(f1);
close(f2);
end.