Опрератор ввода:
Read (значение следующего данного считывается с этой же строчки);
Readln (значение следующего данного считывается с новой строчки)
Опрератор вывода:
Write (выводит информацию и оставляет курсор в той же строке)
Writeln ( выводит информацию и переводит курсор на следующую строку)
Writeln (...) (выводит пустую строку
Тут не она ошибка, а множество. Должно быть так:
var
a: integer;
begin
writeln('Введите любое число');
read(a);
if (a > 0) then
begin
a := a + 1;
writeln(a)
end
else
begin
a := a - 2;
writeln(a)
end
end.
Вторая часть задания:
ЗУБР & ТУТ (знак & обозначает, что поиск будет включать в себя эти оба слова).
ЗУБР | ТУР ( | означает, что в поиске в данном случае в запросе будет хотя-бы одно совпажение или точное)
Следовательно 18000+12000+5000=35000 тыс страниц будет найдено по ЗУБР | ТУР.