Як познячається логічна операція “диз’юнкція (строга)” в мові програмування Free Pascal? а)xor
б)or
в)and
г)not​

#include <iostream> // подключаем библиотеки

#include <cstdlib>

using namespace std; // глобальное пространство имён

int main()

{

setlocale(LC_ALL,"russian"); // русский язык

int tenge;

int number = 0;

cout << "Введите сумму Вашего вклада: ";

cin >> tenge;

if(tenge==200000) // если вклад 200000

{

cout << "Ваш доход составит 13,5% в год. ";

number = number+1;

}

if(tenge==350000) // если вклад 350000

{

cout << "Ваш доход составит 14,2% в год. ";

number = number+1;

}

if(number==0) // если какая-то иная сумма

{

cout << "Требуется уточнить у менеджера процентную ставку для Вашей суммы вклада. Ожидайте.";

}

   system("pause");

   return 0; // код ошибки "0"

}

Это задача на вычисление суммы после уплаты налога.
Если s0  - исходная сумма, а р - процент налога, то ищется s=s0-s0*p/100.
Окончательная формула: s=s0(1-p/100)

const
  p=13;  { налог в процентах }
var
  s0,s:real;
begin
  Write('Введите сумму '); Read(s0);
  s:=s0*(1-p/100);
  { а теперь округлим сумму до копеек, т.е. до 0.01 }
  s:=Int(100*(s+0.005))/100;
  Writeln('Сумма после вычета налога ',p,'% составит ',s:0:2)
end.

Тестовое решение:
Введите сумму 2000
Сумма после вычета налога 13% составит 1740.00

Замечание. При целочисленной зарплате и целочисленном проценте налога оператор s:=Int(100*(s+0.005))/100; не нужен, поскольку в дробной части всегда будет не больше двух знаков. Но, поскольку о сумме зарплаты ничего не говорится, а дано только конкретное значение, которое понято как тестовый пример, было предложено решение с округлением.