C++ :

#include<bits/stdc++.h>
using namespace std;
int s;
int main()
{
	for(int i=92;i>10;i-=10)
		s+=i;
	cout<<"s="<<s;	
	return 0;
}

Pascal :

var i,s:integer;
begin
 for i:=1 to 9 do
   s:=s+(i*10+2);
 writeln('s=',s);
end.