А) Текст
б)Текстовая информация
в)Документ
г)Символ
3.
var
a, b : integer;
begin
readln(a, b);
if ((a mod 10) mod 2 = 0) and ((b mod 10) mod 2 = 0) then writeln('Верно') else writeln('Не верно');
end.
4.
var
a : integer;
begin
readln(a);
if (a < 10000) and (a > 999) and (a mod 3 = 0) then writeln('Является') else writeln('не является');
end.
Логические выражения все, кроме В.
Если ты правильно переписал, то 20.
y:= 10;
x: = 10 + y;
то есть
x: = 10 + 10 = 20;
y:= y - 1;
то есть
y: = 10 - 1 = 9;
но это никак не влияет на x, т.к. эта операция идет уже после выполнения вычисления переменной!