Написать программку.Дано естественное число n вычислить s=1+4+9+16+25+36+49

Pascal ABC.NET

program task31045918;

const

 N = 10;

var

 s: real;

begin

 for var i := 1 to N do

   s := s + Power(i, 2);

 Writeln('S = ', s);

end.

C++

include lt;iostreamgt;

include lt;cmathgt;

using namespace std;

const int N = 10;

int main()

int S = 0;

for(int i = 1; i lt;= N; i++)

 S += pow(i, 2.0);

cout lt;lt; S;

return 0;