Вот код полученый при убирании описок и тп
var
a, b, c: integer;
begin
a := 2;
b := a * 3 + 1;
if b > a + 5 then a := 4;
if b = a + 5 then a := b - a;
c := a * b + a - b;
writeln('c=', c);
end.
вывод
c=33
Провод, кнопки ВКЛ/выкл, камера.
Пятница, суббота, воскресенье.
Логическая величина может принимать 2 значения - Истина и ложь.(0 или 1).
обычно они являются какими то переменными - А, B, C...
и с ними можно производить различные логические операции, например конъюнкция, дизъюнкция, ипликация, инверсия...
var
a: array [1..100] of integer;
i, p, n: integer;
begin
p := 1;
read(n);
for i := 1 to n do
begin
read(a[i]);
if a[i] mod 2 = 0 then
p := p * a[i];
end;
writeln(p);
end.