<span>а) AND (A5> 5; A5 <20)=TRUE
</span>Б)OR (C5 <10; С5> = 20)=<span>TRUE
</span>в) OR (C5 <10; A5> 20)=<span>TRUE
</span><span>г) AND (A5> -2; B5> 0)=FALSE</span>
<span>
</span><span>
</span>
Var
a:integer;
begin
readln(a);
if a<0 then a:=abs(a);
writeln(a);
readln;
end.
var
a,b,c,d:integer;
begin
c:=0;
readln(a,b,c);
if a>0 then c:=c+1;
if c>0 then c:=c+1;
if b>0 then c:=c+1;
writeln(c);
readln;
end.
Думаю что 0.Символ ,,&"Нет в поисковой системе.Ну это не точно)
Проверено в PascalABC.NET
Всё хорошо работает(Скриншот):