Чему будет равно значение переменной s?
var i, s, p: integer;
begin
s := 0;
p := 2;
for i: = 1 to 3 do
begin
s := s + i + p;
p := p + 3;
end;
end;