Расставить недостающие фрагменты программы так, чтобы в результате получилось решение задачи: Найти сумму чисел от 10 до 100.

1Var

2 i,s: Integer;

3 BEGIN

4 s:=0;

5 For i:=1 to 100 do

6 s:=s+i;

7 Writeln('Сумма чисел от 1 до 100 = ',s);

8 Readln

9 END.

старше будет девочка потому что там написано втрое

1.

var n: integer; begin  cls;   for n: =1 to 10 do begin    write('n=',sqr(n)+5,' ');   end; end.

решить на паскале?