задача на паскале, помогите срочно!

Question

Найти: 
а) среднее арифметическое всех целых чисел от 1 до 1000; 
б) среднее арифметическое всех целых чисел от 100 до В (значение В вводится с клавиатуры; В 100); 
в) среднее арифметическое всех целых чисел от А до 200 (значение А и В вводится с клавиатуры; А 200); 
г) среднее арифметическое всех целых чисел от А до В (значения А и В вводятся с клавиатуры; В А) .

Бек Пашаходжаев · Accepted Answer

Задача А: http://pastebin.com/strf1JRJ Длинные ответы сюда не лезут. Йех. Задача Б: http://pastebin.com/b9vbzk2e

Сергей · Answer

program P1; 
uses Crt; 
 
var 
 A, B:Integer; 
 S,N:Real; 
begin 
 WriteLn('Введите A'); 
 ReadLn(A); 
 WriteLn('Введите B'); 
 ReadLn(B); 
 N:=1 + B - A; 
 if (N > 0.0) then 
 begin 
 S:=0.0; 
for i:=A to B do 
begin 
 S:=S + i; 
 end; 
 S:=S / N; 
 WriteLn('Среднее арифметическое чисел от A до B равно ', S:5:2); 
end 
else 
begin 
 WriteLn('Неверные значения A и B'); 
end; 
 
end.