pascal
Объяснение:
var
s, k: integer;
begin
s := 0;
k := 0;
while k < 6 do
s := s + 2;
k := k + 1;
end;
WriteLn('s = ', s);
end.
