срочно решите срочно решите срочно решите срочно решите срочно решите

var s,k:integer;begins:=0;k:=0; while (k<6) do begin s:=s+2; k:=k+1; end; writeln(s);end.