const N=30;
var K:real;
x,i,j:integer;
begin
K:=0;
for x:=1 to 2 do
for i:=1 to 3 do
if x=i then for j:= 1 to 3 do k:=k+1;
writeln ('k =', k);
end.