1)-6

2)1

3)Если число больше нуля и остаток числа при делении на 10 равен трём

4) program test;

var a,b,c,k: integer;

begin

read(a,b,c);

if a<0 then k:=k+1;

if b<0 then k:=k+1;

if c<0 then k:=k+1;

write(k);

end.

или другой вариант

4)program test;

var k: integer;

a: array [1..3] of integer;

begin

read(a[1],a[2],a[3]);

for i:=1 to 3 do

if a[i]<0 then k:=k+1;

write(k);

end.