Задание Составить таблицы истинности
ДЛЯ
следующих логических выражений,
1 F = AV B&(A&A) VB
F = (A B) VA
3 В = (A - B)&(A V B)
4 F = A &(AvВ) V (A - B)
​

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 

Программы-переводчики, как и онлайн переводчики предназначены для быстрого перевода текста на другой язык, отличный от оригинального текста, без высокой квалификации пользователя по знанию иностранного языка. Текст на русском языке, полученный путём машинного перевода, можно быстро отредактировать. Особенно удобно пользоваться переводчиком при работе с большим объёмом текста. А вот те люди, которые слабо знают английский язык, и они так переводят русский текст на английский язык, они могут использовать этот текст только для себя, например, для получения навыков по правке английских текстов. Только не надо надеяться кого-то так обмануть, не надо куда-то сдавать этот текст, так как квалифицированный человек быстро найдёт ошибки в английском тексте, который был получен при машинном переводе.