Первое и четвёртое.
Неприличные посты удалить и объясниться перед близкими.
program n_1;
var n, i, m, s: integer;
begin
s:=0;
read(n);
for i:=1 to n do begin
read(m);
if m mod 2 = 0 then s:=s+1;
end;
writeln(s);
end.
Var a,b,c:Integer;
begin
Read(a,b,c);
if (a<b) and (b<c) then
WriteLn('В порядке возрастания')
else if (a>b) and (b>c) then
WriteLn('В порядке убывания')
else
WriteLn('Нет');
<span>end.
</span>Нажимаем "лучший ответ"