Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

Помогите пожалуйста, 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