Написать программу: к данному числу прибавить все числа от 1 до n.

На Паскале подойдет?
program help;
var a,n,i: integer;
begin
read (a,n);
for i:=1 to n do
a:=a+n;
write (a)
end.