Помошите с кодом Pascal Помогите найти ошибку - вопрос №2617736

1 — явная ошибка
...
beginxx:=x1+x2;x1:=x2;x2:=xxend;end;
… два «end;» подряд, один лишний, ломает баланс «begin end»

2 — соответственно, в конце программы не хватает «end;» в предпоследней строке, перед «end.», то же самое — нарушен балас

3 — точно ошибка — в строке «while x1*a+x2*b if x1*a+x2*b<>y then» пропущен «do», что бы такие ошибки были лучше видны, рекомендуется писать операторы/выражения по одному в строке, использовать отступ для наглядного отображения уровня вложенности, брать в кавычки логическое условие

while (x1*a+x2*b) do
       if (x1*a+x2*b<>y) then

4 — о наличии еще каких либо ошибок говорить невозможно, не зная назначения программы, входного файла, и листинга ошибок компилятора