1.
var f1,f2:text;
a,b,c:integer;
begin
Assign(f1,'input.txt');Reset(f1);
Assign(f2,'output.txt');Rewrite(f1);
Readln(f1,a);
Readln(f1,b);
c:=a+b;
Writeln(f2,c);
Close(f1);Close(f2);
end.

2.
var f1,f2:text;
n,i:integer;s:real;
begin
Assign(f1,'input.txt');Reset(f1);
Assign(f2,'output.txt');Rewrite(f2);
Readln(f1,n);
s:=0;
for i:=1 to n do s:=s+i;
Writeln(f2,s);
Close(f1);Close(f2);
end.