Найти среднее арифметическое всех целых чисел от a до 200 (значения a и b вво- дятся с клавиатуры; a> =200);

Var     
 A,i:integer; 
    S:integer; 
     Sr:real; 
    b:integer;
begin 
   writeln('Введите а:'); 
   readln(A);   
  b:=200;   
 for i:=A to 200 do
 begin 
   S:=B+i; 
 End;
     Sr:=S/A; 
   writeln('Среднее значение:',sr);
end.