1224 Спираль⁠⁠

var m,n,i,c: integer;
begin
read (n,m);
i:=0;
if n