с предусловием

program var_while;

var

   s : integer := 2;

   n : integer := 2;

begin

   while n <= 7 do begin

       s := s-3*n;

       n += 1;

   end;

   writeln(s);

end.

с постусловием

program var_repeat;

var

   s : integer := 2;

   n : integer := 2;

begin

   repeat

       s := s-3*n;

       n += 1;

   until n > 7;

   writeln(s);

end.

и в нагрузку цикл с параметром

program var_for;

var

   s : integer := 2;

begin

   for var n := 2 to 7 do s := s-3*n;

   writeln(s);

end.