Cod sursa(job #64426)

Utilizator Sorin_MPPetroianu Sorin Sorin_MP Data 3 iunie 2007 11:17:10
Problema A+B Scor 100
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.36 kb
uses crt;
var a,b:longint;
	f:text;

procedure citesc;
	begin
	assign(f,'adunare.in');
	reset(f);
	readln(f,a);
	readln(f,b);
	close(f);
	end;
	
procedure scriu;
	begin
	assign(f,'adunare.out');
	rewrite(f);
	if (a+b)>2000000 then
		write('nu se poate')
	else
		write(f,a+b);
	close(f);
	end;
	
begin
clrscr;
citesc;
scriu;
readln;
end.