Без прелюдий, только основная часть программы:
While (p<>1)
do begin
readln(p);
{a)} if p mod 7 = 0
then a+=1;
{б)} if (p>10) and (p<=100)
then b+=p;
{в}if (p mod 3 =0) and (p mod 5 = 0)
then s+=p;
end;
...
Это для паскаль ABC или ABC.NET
"Да" надо заключить в 'Да'
А вообще, лучше использовать цифры. Например, 1 и 2, Да и Нет соответственно. А в выводе указать, "Введите 1 для подтверждения"
Он есть где?
Проверь название файла. Именно файла. Вдруг опечатка.
Попробуй ввести полный путь в тексте программы.
Посмотри есть ли русские буквы в пути к файлу.
Если файл *.txt лежит не рядом с самой программой, положи его в папку с программой.
<span>Или просто положи его в корень C и укажи путь в коде.</span>
X = 336
y = 8
х = x div y = 336 div 8 = 42
y = x mod y = 42 mod 8 = 2
Program n1;
var x,y,z: real;
procedure kvur(a,b,c: real);
var D: real;
begin
D:=b*b-4*a*c;
writeln('x1=',(-b+sqrt(D))/2*a);
writeln('x2=',(-b-sqrt(D))/2*a);
end;
begin
write('a=');
readln(x);
write('b=');
readln(y);
write('c=');
readln(z);
kvur(x,y,z);
end.