1)
var s;k: integer;
begin
s:=4;
for k:=1 to 3 do
s:=s+2*k;
write (s);
end
2)
var s;k;I: integer;
begin
s:=3;
I:=3*s;
for k:=3 to 9 do
s:=s+I;
write (s);
end

2)66

2)66

//1)var  s, k: integer;begin  s := 4;  for k := 1 to 3 do    s := s + 2 * k;  write(s);// s = 16end.//2var  s, k, I: integer;begin  s := 3;  I := 3 * s;  for k := 3 to 9 do    s := s + I;  write(s);// s = 66end.