Ответ:

program :......

var

n, s: integer;

begin

s := 0;

n := 1;

while n <= 15 do begin

inc(s, n); { s := s + n; }

inc(n, 2) { n := n + 2 }

end;

writeln('sum: ', sqr(s));

readln

end.