Выберите верные суждения об истине и её критериях и запишите цифры, под которыми они указаны. 1) Истина — это адекватное отражение в творчестве и деятельности

Const
n1=1000;
type
mas=array[1..n1]of integer;
var
a:mas;
i,kpol,kotr,knuley,n:integer;
begin
randomize;
readln(n);
for i:=1 to n do a[i]:=random(31)-5;
for i:=1 to n do write(a[i],' '); writeln;
kpol:=0;kotr:=0;knuley:=0;
for i:=1 to n doif a[i]<0 then kotr:=kotr+1 else
if a[i]>0 then kpol:=kpol+1 else
if a[i]=0 then knuley:=knuley+1;
writeln(kotr);
writeln(kpol);
writeln(knuley);end.