Cod sursa(job #183358)

Utilizator TamasionutzIoan-Cornel Tamas Tamasionutz Data 21 aprilie 2008 23:20:26
Problema A+B Scor 100
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.29 kb
Raporteaza aceasta sursa 
var a,b:longint;

procedure citire;
var f:text;
begin
     Assign(f,'adunare.in'); reset(f);
     readln(f,a); readln(f,b); close(f);
end;

procedure scriere;
var f:text;
begin
    Assign(f,'adunare.out'); rewrite(f);
    write(f,a+b); close(f);
end;

begin
     citire; scriere;
end.