В нэте есть я это тоже позавчера делал)
Var S,K,A:integer;
Begin
S:=0;
K:=0;
A:=100;
Repeat
S:=S+A;
K:=K+1;
A:=A+10;
Until A>500;
WriteLn('SR = ',K*S);
End.
Правильный ответ на этот вопрос A.
для операционной системы, для программной оболочки, для драйверов, для утилит,и антивирусов