Составить программу вычисления значения суммы чисел: 14; 15; 16; 17; ... пока сумма не достигнет числа k помогите без вас некуда

Исправил на верное прошу прощение за ошибку не понял ваш вопрос просто.

Вводим число 17 для i и программа начинает работать вот так 14+15+16+17=62

Вот правильная программа:

Program сhet2;

uses crt;

var x, y, i:integer;

begin

textcolor (11) ;

writeln ('Введите i: ') ; / / В твоем случае это 17

readln (i) ;

y:=0;

for x:=14 to i do begin

y:=y+x;

end;

writeln (y) ;

readln () ;

end.