timefi9471

Ответ:

var i,n,s:integer;

begin

readln(n);

s:=0;

for i:=1 to n do

s:=s+i;

writeln(s,s/n)

end.

Объяснение: