Ответы и объяснения

2013-11-12T19:04:00+04:00
Program Task;
Var a, b, i: Integer;
Begin
For i := 100 To 1000 Do
Begin
a := a + i;
b := b + 1;
End;
WriteLn('Результат: ', (a / b):4:2);
ReadLn;
End.