uses
crt;
var
i,s1,s2,nt,pt:
integer
;
begin
clrscr;
nt:=
0
;pt:=
write
(
'1.sayiyi girin:'
);readln(s1);
'2.sayiyi girin:'
);readln(s2);
for
i:=s1
to
s2
do
if
i>
then
pt:=pt+i
else
nt:=nt+i;
writeln
'pozitiflerin toplam : :'
, pt);
'negatiflerin toplam : :'
,nt);
readln;
end
.