var s, i: integer;

begin

s := 0;

for i := 117 to 234 do

s := s + i;

write('Сумма целых чисел от 117 до 234 равна ', s);

end.

Ответ:

Pascal ABC.Net

begin

 var s: integer;

 for var i := 117 to 234 do

  s+=i;

   Println('Sum: ',s);

end.