1. Дано число К. Напечатать все трехзначные числа, сумма цифр которых равна данному числу.       Program Ex1;
var k,i, p1,p2,p3:integer;
Begin
Writeln('vvedite k');
readln(k);
For i:= 100 to 999 do
Begin
p1:=i div 100;
p2:= (i div 10) mod 10;
p3:=i mod 10;
if(p1+p2+p3)= K then
writeln(i);
readln;
end;
end.  почему программа не идет? где ошибка? помогите пожалуйста  

И конкретизируй термин "не идёт". Нет такого термина даже в сленге. Программа может быть написана с синтаксическими ошибками и транслятор или интерпретатор может выдавать сообщения об ошибке. Программа может выполняться, но выдавать неправильные результаты.

Программа может "зависать", то есть уходить, например, в какой-то бесконечный цикл. Программа в процессе работы может "вываливаться", то есть аварийно прекращать работу, ну, например, при делении на 0. И тд И тп. Что конкретно у тебя?

Я просила найти ошибку в программе, а не умничать. Спасибо, что обратили внимание. Ошибку я нашла сама. Программа теперь выполнена верно.

После do и then попробуй поставить (;)