Найти паскаль, больше не чего не надо​

pascal

var

s, k: integer;

begin

 s := 0;

 k := 0;

 while k < 6 do

 begin

   s := s + 2;

   k := k + 1;

 end;

WriteLn('s = ', s);

end.