Пожалуйста посчитайте пожайлуста

1)5005

2)Program prog;

uses crt;

var a,b,i,p: integer;

begin

clrscr;

p:=1;

write('Введите значение а = '); readln(a);

write('Введите значение b = '); readln(b);

if b>=a then begin

for i:=a to b do

p:=p*i;

writeln('Произведение Р = ', p);

end

else

writeln('a > b');

end.

3)Program n1;

var i,sum: longint;

begin

sum:=0;

for i:=100 to 999 do sum:=sum+i;

write('срзнач: ',sum/900);

end.