Можно использовать исключающую дизъюнкцию (либо). Оно у нас будет истинным, если одно из выражений истинно, а другое - ложно. В данном случае нам нужен ложный результат и поэтому берем еще одно истинное утверждение, это может быть "4 больше 6" или "5 кратно 3". Его можно поставить и справа и слева, результат не изменится.
Нажми правую клавишу мыши на рабочем столе. Выбери "персонализация". Выбери в разделе "темы по умолчанию" "windows"
Windows не хочет устанавливаться, потому что он уже установлен
1/4 книги поместится в флэшку емкостью 256 мбайт
Program zadanie;
var i,n,a:integer;
begin
readln(n);
for i:=1 to n do
begin
if(i mod 2)=1 then a:=a + 1;
end;
writeln(a);
readln;
<span>end.
если я правильно понял то так,если нет,пиши переделаю!</span>