Даны три слова напечатать неповторяющиеся в них буквы. напишите программу в паскале .

Const Sz = 100; // Размер массива

var
a: array [1..Sz] of integer;
N: integer; // Количество элементов в массиве
i,k: integer;
min,max: real;
begin
k:=0;
N:= 10;
for i:=1 to N do begin
read(a[i]);
k:=k+a[i];
end;
write('Вывод элементов массива: ');
for i:=1 to N do
write(a[i],' ');
min := a[1];
for i:=2 to N do
if a[i]<min then
begin
min := a[i];
end;
max := a[1];
for i:=2 to N do
if a[i]>max then
begin
max := a[i];
end;
writeln('max=',max,' ','min=', min,' ','Средная температура=',k/N)
end.

#include <iostream>

using namespace std;

int main()

{

   int x;

   cout << "Введите значение X: ";

   cin >> x;

   if (x >= -4 && x <= 1)

   {

       cout << "1";

   }

   else

   {

       cout << "0";

   }

}

Объяснение:

#include <iostream> // Библиотека ввода - вывода

using namespace std; // Пространство имён

int main()

{

   int x; // Создание целочисленной переменной x

   cout << "Введите значение X: "; // Вывод сообщения в консоль

   cin >> x; // Вводим значение с клавиатуры

   if (x >= -4 && x <= 1) // Если значение переменной x ≥ -4 И ≤ 1

   {

       cout << "1"; // Выводим 1

   }

   else // Иначе

   {

       cout << "0"; // Выводим 0

   }

}