program z1623; uses crt; var x,y,k: byte; BEGIN k:=0; for y:=0 to 16 do begin x:=(64-4*y)div 2; writeln(x,'gus i',y,'krol'); k:=k+1; end; writeln(k); END.