Составить программу решения следующей задачи: (B1 - 16) * 2→<0823> вычислительная техника

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 

1)

39₁₀ = 47₈

127₁₀ = 177₈

512₁₀ = 1000₈

2)

67₈ = 55₁₀

354₈ = 236₁₀

42₈ = 34₁₀

Объяснение:

1)

16 / 8 = 2 + остаток 0

2 / 8 = 0 + остаток 2

записываем остатки снизу вверх

16₁₀ = 20₈

39 / 8 = 4 + остаток 7

4 / 8 = 0 + остаток 4

записываем остатки снизу вверх

39₁₀ = 47₈

127 / 8 = 15 + остаток 7

15 / 8 = 1 + остаток 7

1 / 8 = 0 + остаток 1

записываем остатки снизу вверх

127₁₀ = 177₈

512 / 8 = 64 + остаток 0

64 / 8 = 8 + остаток 0

8 / 8 = 1 + остаток 0

1 / 8 = 0 + остаток 1

записываем остатки снизу вверх

512₁₀ = 1000₈

2)

67₈ = 6 * 8¹ + 7 * 8⁰ = 6 * 8 + 7 * 1 = 48 + 7 = 55₁₀

354₈ = 3 * 8² + 5 * 8¹ + 4 * 8⁰ = 3 * 64 + 5 * 8 + 4 * 1 = 192 + 40 + 4 = 236₁₀

42₈ = 4 * 8¹ + 2 * 8⁰ = 4 * 8 + 2 * 1 = 32 + 2 = 34₁₀