4. Расставить недостающие фрагменты программы так, чтобы в результате получилось решение задачи: Найти сумму чисел от 10 до 100. Var S, x: integer; Begin ... x=; while ... do begin S:=; x:= end; write(); end.

pascal Var S, x: integer; Begin S := 0; x := 10; while x <= 100 do begin S := S + x; x := x + 1; end; write(S); end. Пояснения: 1. `S := 0;` – Инициализируем переменную `S` нулем, чтобы начать накапливать сумму. 2. `x := 10;` – Инициализируем переменную `x` начальным значением 10, как указано в задаче (сумма чисел от 10 до 100). 3. `while x <= 100 do` – Цикл выполняется, пока значение `x` не превысит 100. Это гарантирует, что мы просуммируем все числа до 100 включительно. 4. `S := S + x;` – Внутри цикла к текущей сумме `S` добавляется текущее значение `x`. 5. `x := x + 1;` – Увеличиваем `x` на 1 на каждой итерации, чтобы перейти к следующему числу в диапазоне. 6. `write(S);` – После завершения цикла выводим итоговую сумму `S`.