Постройте таблицу истинности для данного выражения и логическую схему.
Y= A^HE(B)v НЕ(C)
пожайлуста кто может!

{Даны вещественные числа a,b,c. Определите, существует ли треугольник со сторонами a,b,c?}
var a,b,c:real;
begin
  writeln('введите стороны треугольника');
  readln(a, b, c);
  if (a+b>c) and (a+C>b) and (b+c>a) then  writeln('треугольник существует')
  else   writeln('треугольник не существует');
end.

{ Дано целое положительное число. Определите, оканчивается ли оно цифрой 7}
var
  N:integer;
begin
  writeln('введите число');
  readln(N);
  if n mod 10= 7 then
    writeln('оканчивается  цифрой 7')
   else    writeln( 'не оканчивается цифрой 7');
end.

program название;

var a, b, s, p:integer;

begin

writeln ('Введите число a');

readln (a);

writeln ('Введите число b');

readln (b);

s:=a+b;

p:=a*b;

writeln ('Сумма чисел равна:', s);

writeln (Произведение чисел равно:', p);

end.

Объяснение:

/ - деление.

* - умножение.

sqrt - квадратный корень (всё что будет в корне заключается в скобки).

sqr - квадрат (всё что возводится в квадрат заключается в скобки).

В начале вводишь данные с клавиатуры (значение переменной a и значение переменной b).

Переменной s присваивается сумма переменных a и b.

Переменной p присваивается произведение переменных a и b.

Затем, выводится ответ.