простейшее уравнение:
10000/13=769
10000/17=588
10000-(588+769)=8643
Program Summa;
var s,i,n:integer;
begin
write('Введите n:' );
readln(n);
s:=0;
for i:=1 to n do
if (i mod 2)<>0 then s:=s+i;
writeln;
writeln('Сумма нечётных чисел равна:',s);
readln; {для паузы}
end.
Во free pascal?
Если хоче порисовать то скачай Basic
Единица пропускной способности передачи каналов измеряеться в битах за секунду(бит/сек)