{4-е задание} var a:integer;
begin
readln(a);
if a > 0 then writeln('Введено положительное ',length(IntToStr(a)),'-x значное число.')
else writeln('Введено отрицательное ',length(IntToStr(a))-1,'-x значное число.')
end.
5)
program p5;
var n,k,i,s:integer;
begin
write('n: ' readln; s:=0;
for i:=1 to n do begin read(k); s:=s+k*ord((k>-100)and(k<-9)) end;
writeln(s);
end.
6)
program p6;
var k,s:integer;
begin
readln(k); k:=abs(k);
s:=k div 1000+k div 100 mod 10+k div 10 mod 10+k mod 10;
writeln(s);
end.