Написать программу в Дельфи.

[L0102591]

For37. Дано целое число N (> 0). Найти сумму 11 + 22 + … + NN. Чтобы избе-
жать целочисленного переполнения, вычислять слагаемые этой суммы с
помощью вещественной переменной и выводить результат как веществен-
ное число.

[paskal]

если я правильно понял задание, то так

PROGRAM chet;
   uses crt;
   var  i,n:integer;
          s:real;
BEGIN
   clrscr;
   writeln('vvedite chislo');
   readln(n);
   for i:=1 to n do
      begin
         s:=s+(i*10+i);
      end;
   writeln;
   writeln('symma = ',s:0:4);
   readln;
END.