[Dark King]

***
begin
assignfile(output,'имяфайла.расширение');
append(output);
writeln(summa);
close(output);
end;