Pascal abc пишет, что ошибка в 16 и 19 строке: 1. program qq; 2. var x, y, z, c, a, b: real; 3. begin 4. writeln('введите стоимость билета бизнесс-класса: '); 5.readln(x); 6. if x > 0 then 7. begin 8. y: = x / 2; 9. writeln('введите количество оставшихся билетов бизнесс-класса, затем введите количество оставшихся билетов эконом-класса'); 10. readln(a, b); 11. if a > =0 and b > = 0 then 12. begin 13. c: = a*x + y*b; 14. z: = (120*y + 40*x) - c ; 15. writeln('доход авиакомпании: ', z); 16. else 17. writeln('решение невозможно'); 18. end 19. else 20. writeln('решение невозможно'); 21. end 22. end.

Program qq; 
var x, y, z, c, a, b: real; 
begin 
writeln('Введите стоимость билета бизнесс-класса:'); 
readln(x);   
if x > 0 then 
begin   
y:= x / 2;   
writeln('Введите количество оставшихся билетов бизнесс-класса, затем введите количество оставшихся билетов эконом-класса');   
readln(a, b);       
if (a >=0) and (b >= 0) then     
begin       
c:= a*x + y*b;       
z:= (120*y + 40*x) - c ;       
writeln('Доход авиакомпании:', z);     
end     
else     
writeln('Решение невозможно'); 
end; 
end.

Вот так всё работает.
1. Не там поставили end;
2. лишнее else writeln('Решение невозможно');
3. У меня ругался паскаль на то что в условия при and не взяты в круглые скобки. if (a >=0) and (b >= 0) then