написать программу выводящую на сумму натуральных чисел от K до 400 , включая K и 400 Паскаль

Могу, но не стану. Во-первых, ответ уже нельзя исправлять, потому что он был принят модератором. Во-вторых, Вы не указали версию Паскаля, поэтому я выбрал её сам. Если Вам плевать на чужой труд, то почему я должен дважды делать одно и то же?

// PascalABC.NET 3.2, сборка 1389 от 01.03.2017// Внимание! Если программа не работает, обновите версию!begin  Writeln('S= ',Range(ReadInteger('K='),400).Sum)end.ПримерK= 15S= 80095