AriannaCat Если я все правильно поняла, то должно быть как-то так:

program sum1;
var i: integer;  
sum: integer;
begin
 for i:= 1 to 10 do   
sum:= sum + i;
writeln(sum);
readln;
end.